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INTRODUCTION 

The  design  of  the  SYM-1  based  data  logger  resulted  from  two 
USDA  sponsored  Solar  Demonstration  Projects.  In  these  projects  a 
total  of  19  solar  collectors  were  to  be  monitored  to  determine 
the  energy  collected  during  the  heating  season.  As  funds  were 
limited,  it  was  not  possible  to  purchase  a  commercial  data  logger 
for  each  solar  collector  so  an  alternative  had  to  be  chosen.  The 
decision  was  made  to  build  and  program  a  data  logger  for  the  pro- 
ject that  could  be  located  at  each  solar  collector. 

In  addition  to  the  solar  demonstration  projects,  several 
other  uses  of  the  data  logger  were  made.  These  were  for  the  ice 
freezing  project  (where  the  logger  also  served  as  the  controller) 
and  for  engine  testing. 


LITERATURE  REVIEW 

In  reviewing  data  loggers  there  are  several  types  of  data 
loggers  available.  They  range  from  computer-based  data  loggers 
to  commercial-dedicated  data  loggers  to  custom-built  dedicated 
data  loggers. 

One  type  of  data  logging  equipment  is  the  computer-based 
data  acquisition  system.  This  type  of  system  is  sold  as  either  a 
full  computer  with  data  acquisition  interfaces  or  as  data 
acquisition  interfaces  that  can  be  used  on  an  existing  computer. 
In  this  case  the  computer  is  a  complete  single-user  system  with 
computer,  terminal  and  disk  drives.  A  disk  operating  system  is 
available  along  with  a  selection  of  languages  for  programming. 
With  this  type  of  equipment,  data  can  be  acquired  and  processed 
on  site  with  full  interaction.  This  is  the  most  flexible  type  of 
data  logging  system  but  also  the  most  expensive.  Since  this  sys- 
tem is  a  complete  computer  it  almost  always  requires  120  volt  AC 
electrical  power  for  operation.  Usually  a  power  outage  will  com- 
pletely stop  operation  and  require  an  operator  to  restart  the 
operation. 

Representive  of  commercial-dedicated  data  loggers  are  the 
Campbell  Scientific  CR5  and  CR21.  The  CR21  is  built  primarily  as 
a  meteorological  data  logger  but  can  be  used  for  various  other 
types  of  data  logging.  The  logger  provides  a  fixed  number  of 
analog  channels  usable  for  thermocouples  and  similar  inputs  and 
pulse  counting  channels  for  wind  speed  and  direction  sensing. 


The  CR5  is  a  more  general  data  logger  providing  expandable 
modules  that  can  be  added  to  meet  the  desired  application.  These 
systems  can  store  data  on  either  a  printed  paper  tape  or  a 
cassette  tape.  In  addition,  a  modem  can  be  installed  to  allow 
remote  interrogation  of  the  data  collected  on  the  data  logger 
over  telephone  lines.  These  data  loggers  operate  on  batteries  so 
that  it  is  not  necessary  that  power  is  maintained  for  the  logger. 

The  final  type  of  data  logger  is  the  custom-built  data 
acquisition  system  based  on  a  computer.  In  this  type  of  system  a 
general  purpose  computer  is  selected  and  appropriate  data 
acquisition  circuits  are  added  to  acquire  the  data.  The  computer 
selected  can  range  from  a  single-board  computer  with  very  limited 
or  no  operator  input/output  capability  (such  as  the  Synertek 
SYM-1)  to  a  computer  with  full  keyboard  and  monitor  (such  as  the 
Radio  Shack  TRS80) .  The  data  acquisition  hardware  is  usually 
inexpensive  and  custom  built  for  a  specific  task.  Depending  on 
the  application,  the  data  loggers  can  be  designed  for  either  bat- 
tery operation  or  other  electrical  power  as  available. 


SELECTION  OF  THE  SYNERTEK  SYM-1  MICROCOMPUTER 

Several  considerations  were  taken  into  account  in  the  selec- 
tion of  a  microcomputer  for  the  data  acquisition  system.  The 
required  features  of  the  microcomputer  were  as  follows: 

1.  Ease  of  interfacing  the  analog  to  digital  (A/D)  converter. 

2.  Handling  of  power  outages  during  unattended  operation. 

3.  Reliable  method  of  saving  data. 

4.  Being  able  to  transfer  data  to  the  Agricultural  Engineering 
computer. 

5.  Easily  programmable  for  the  data  logging  task. 

The  first  computer  considered  was  the  Radio  Shack  TRS-80 
Model  I  with  a  cassette  interface.  In  analyzing  this  system,  it 
was  found  to  satisfy  requirements  3,  4,  and  5  above.  The 
cassette  tape  is  a  reliable  storage  method  for  data;  interfacing 
to  the  Agricultural  Engineering  computer  can  be  made  through  the 
RS232  interface;  and  Basic  would  provide  an  adequate  programming 
environment.  Requirement  1,  interfacing  to  the  A/D  converter,  is 
possible  since  the  address  and  data  lines  are  externally  accessi- 
ble; however,  two  or  three  parallel  ports  would  need  to  be  inter- 
faced before  the  A/D  could  be  connected  and  an  additional  power 
supply  would  be  needed.  Requirement  2,  providing  the  ability  to 
handle  power  outages,  is  not  an  easy  problem  to  handle  as  the 
computer  provides  no  EPROM  sockets  for  auto-start  operation.  The 


only  possible  solution  allowing  for  unattended  operation  is  to 
provide  battery  backup. 

The  second  computer  under  consideration  was  the  Synertek 
SYM-1  single  board  computer.  This  computer  satisfied  require- 
ments 1,  2,  3,  and  4  easily.  Six  parallel  ports  are  provided  to 
allow  interfacing  of  an  A/D  converter  to  the  computer.  Since  a 
power  supply  must  be  added  to  operate  the  computer,  the  power 
supply  selected  would  provide  adequate  power  for  both  the  com- 
puter and  the  A/D  converter.  Power  outage  handling  is  provided 
with  EPROM  sockets  that  can  be  configured  to  automatically  res- 
tart data  logging  on  power-up.  A  cassette  interface  provides 
data  storage  capability  and  the  RS232  interface  provides  access 
to  the  Agricultural  Engineering  computer.  The  last  requirement 
was  the  programmability  of  the  computer.  Since  the  Department 
has  an  Apple  II  computer  which  uses  the  same  MOS  Technology  6502 
microprocessor,  programming  could  be  done  on  the  Apple  II  and 
then  transferred  to  the  SYM-1  in  EPROM  for  execution.  Although 
programming  in  Assembly  language  is  not  as  desirable  as  in  Basic, 
this  was  not  considered  a  major  deterrent. 

A  third  computer  that  was  briefly  considered  is  the  SD  Sys- 
tems Single  Board  Computer  which  uses  the  Z-80  microcomputer. 
The  evaluation  of  this  computer  is  similar  to  the  SYM-1  as  the 
computer  provides  similar  features.  Although  it  was  felt  the  Z- 
80  is  easier  to  program,  this  computer  was  not  used  due  to  the 
lack  of  a  development  system  within  the  Department. 


DESIGN  OF  THE  MICROCOMPUTER  DATA  LOGGER 

The  development  process  for  the  data  logger  resulted  in 
three  distinct  versions  of  the  data  logger  being  produced.  These 
versions  show  a  progression  in  capabilities  from  that  of  a  simple 
data  logger  programmed  for  a  specific  task  to  a  more  general  data 
logger  that  can  handle  a  wide  variety  of  data  acquisition  tasks. 

All  versions  of  the  data  logger  use  the  same  microcomputer, 
the  Synertek  SYM-1.  The  primary  features  of  the  SYM-1  microcom- 
puter include  a  6-digit  LED  display  and  hexadecimal  keypad;  three 
6522  versatile  interface  adapters  (VIA's)  providing  a  total  of 
six  8-bit  parallel  ports  for  interfacing  the  A/D  converter;  and  a 
cassette  tape  port  for  reading  and  writing  tapes  used  for  data 
storage.  The  cassette  interface  also  provides  motor  control 
automatic  starting  and  stopping  of  the  tape  under  software  con- 
trol. 

The  peripherals  needed  for  the  SYM-1  include  a  power  supply 
and  cassette  tape  recorder.  The  Power  One  HTAA-16W  power  supply 
provides  5  volts  at  2  amperes  and  +/-  9  to  15  volts  at  0.4 
amperes  each.  The  Radio  Shack  CTR-80  cassette  tape  recorder  was 
chosen  since  it  is  designed  for  computer  use  and  therefore  pro- 
vided the  necessary  characteristics  for  data  storage.  All  the 
components  of  the  data  logger  are  enclosed  in  an  ABS  plastic 
instrumentation  case  for  protection. 

The  differences  in  the  three  versions  of  the  data  logger 
involve   the   data   acquisition   hardware,   real   time  clock 


hardware/software,  and  control  software.  All  programming  was 
done  on  an  Apple  II-Plus  computer  with  dual  disk  drives  and  an 
EPROM  programmer  in  Assembly  language.  This  worked  well  as  both 
the  Apple  II-Plus  and  the  SYM-1  share  the  MOS  Technology  6502 
microprocessor.  Initially  the  programs  were  transferred  using 
the  RS232  interface  from  the  Apple  II-Plus  to  the  SYM-1  for  test- 
ing, but  as  the  program  grew  in  size  EPROHs  were  used  for  test- 
ing. 

Development  System 

An  Apple  II-Plus  computer  was  used  as  the  software  develop- 
ment system  for  the  data  logger.  The  Apple  II-Plus  has  two  disk 
drives,  48K  Ram  and  a  high  speed  serial  interface.  To  complete 
the  development  system,  the  Macro  Assembler  Editor  (MAE)  from 
Eastern  House  Software  was  purchased.  All  programming  was  done 
using  this  assembler  on  the  Apple  II-Plus. 

Initially  the  object  code  was  down  loaded  through  the  Apple 
II-Plus  and  SYM  I  serial  ports  and  then  saved  on  cassette  tapes. 
This  allowed  quick  turn-around  for  program  testing  and  debugging. 
Since  this  requires  loading  the  program  from  tape  and  starting 
execution  manually,  automatic  power-up  operation  was  impossible. 

To  provide  power-up  operation  on  the  SYM-1  an  EPROM  program- 
mer was  purchased  for  the  Apple  II-Plus.  Burning  the  program 
into  an  EPROM  allows  automatic  power-up  operation  of  the  SYM-1 
and  removes  the  dependency  on  loading  the  program  from  tape.  The 
first  programmer,  an  MP.PP  III,  had  some  reliability  problems  due 
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to  bad  socket  connectors  along  with  the  limitations  of  program- 
ming only  5  volt  2716  EPROMs  and  not  being  able  to  read  or  verify 
the  EPROMs.  This  resulted  in  several  EPROMs  that  were 
incorrectly  programmed  without  indication  of  such  until  they  mal- 
functioned. For  these  reasons  the  Apparat  Apple  PROM  Blaster 
EPROM  programmer  was  purchased  which  programmed  a  variety  of 
EPROMs,  and  can  also  read  and  verify  the  EPROM. 

Version  1 

The  first  version  of  the  data  logger  served  as  an  experimen- 
tal model  to  verify  operating  capabilities,  resolution,  and  reli- 
ability of  the  microcomputer  data  logger.  Its  design  was  very 
specific  to  the  task  of  taking  temperature  data  every  minute  from 
an  ice  freezing  project.  Only  one  data  logger  was  built  with 
this  design  and  was  later  upgraded  to  the  Version  2  data  logger. 

Hardware  configuration 

The  analog  to  digital  (A/D)  conversion  was  performed  using 
an  ADC1609  A/D  converter  chip.  This  chip  provides  a  multiplexor 
for  16  analog  input  channels  and  an  A/D  converter  with  eight  bits 
of  resolution  over  the  input  range  of  0  to  5  volts.  For  tempera- 
ture sensing,  the  Analog  Devices  AD590  with  a  current  to  voltage 
conversion  amplifier  was  used.  Resistance  of  the  water  and  ice 
mixture  was  measured  with  a  voltage  divider  to  determine  time  of 
freezing. 


Software 

On  this  first  version  of  the  program,  the  SYM-1  monitor  was 
used  extensively  to  reduce  the  amount  of  programming  required. 
No  information  display  was  done  from  the  data  logging  program, 
relying  on  the  operator  to  be  able  to  use  the  SYM-1  monitor  to 
obtain  current  data  to  check  operations.  A  timer  in  one  of  the 
three  6522  VIA's  on  the  SYM-1  was  used  to  provide  interrupts  at 
50  millisecond  (20  Hz)  intervals.  This  provided  a  timing  signal 
used  to  maintain  a  software  real  time  clock  and  allow  the  proces- 
sor to  perform  the  data  logging.  With  data  logging  proceeding  as 
a  background  operation,  the  operator  could  use  the  monitor  to 
check  memory  locations  and  proper  operation  of  the  program 
independently  of  the  data  logging. 

The  operation  of  the  program  was  to  maintain  the  software 
clock,  sample  the  data  every  minute,  and  store  the  data  in  the 
memory  array.  Every  hour  the  data  array  was  stored  twice  on  tape 
to  provide  duplicate  storage  in  the  event  there  was  a  defect  in 
the  tape. 

The  program  was  initially  loaded  from  cassette  into  ram  but 
later  stored  in  an  EPROM.  In  both  cases,  someone  had  to  physi- 
cally start  the  program,  enter  the  date,  and  start  the  data  log- 
ging. Any  power  outage  would  result  in  the  data  logger  stopping 
operation  and  losing  data  until  the  operator  returned  to  restart 
its  operation. 
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Version  2 

The  second  version  used  the  experience  gained  from  Version  1 
and  resulted  in  a  data  logger  suitable  for  taking  solar  data  in 
confinement  livestock  buildings.  The  additional  capabilities 
needed  were  to  make  the  data  logger  able  to  withstand  power 
outages  and  to  continue  taking  data  after  the  power  was  turned 
back  on.  An  operator  interface  was  also  needed  to  allow  people 
without  computer  experience  to  obtain  information  about  the 
current  state  of  input  data,  time,  and  general  operation. 

Hardware 

The  analog  to  digital  converter  used  on  this  data  logger  was 
the  ADC0809  which  is  an  eight  channel  equivalent  of  the  ADC1609. 
The  temperature  sensing  circuits  were  the  same,  but  precision 
resistors  with  a  low  temperature  coefficient  of  resistance  were 
used  instead  of  standard  carbon  resistors.  This  was  required 
since  the  temperature  sensors  sense  absolute  temperature  and  any 
errors  were  a  percentage  of  absolute  temperature.  For  example, 
with  a  20  degree  Celsius  temperature  (293  degree  Kelvin)  a  0.5% 
change  in  resistance  would  result  in  an  unacceptable  1.5  degree 
Celsius  temperature  change.  To  measure  air  flow,  an  air  flow 
sensor  producing  thermocouple  level  output  was  amplified  by  a 
commutating  auto-zero  amplifier. 

In  order  for  the  data  logger  to  handle  power  outages  it 
needed  either  to  have  battery  backup  or  to  be  able  to  automati- 
cally restart  data  logging  upon  power-up.   Since  a  battery  backup 
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would  be  both  costly  and  complex  requiring  three  supply  voltages, 
the  automatic  restart  operation  was  selected.  To  automatically 
restart  operation  upon  power-up  requires  both  an  auto-start  EPROM 
and  a  real  time  clock  since  weather  data  would  be  of  little  use 
without  the  time  of  day.  The  Oki  Semiconductor  MSM5832  real  time 
clock  was  used  primarily  because  at  the  time  it  was  the  only 
microcomputer  interfacable,  real  time  clock  chip  available.  This 
clock  maintains  year,  month,  day,  hour,  minute,  second,  and  day 
of  the  week.  Also  provided  by  the  clock  chip  are  l/1024th 
second,  1  second,  1  minute,  and  1  hour  interrupts  of  which  the 
hour  and  minute  interrupts  usually  didn't  work  as  specified  in 
the  data  sheet.  The  second  interrupt  was  used  to  trigger  data 
sampling  under  the  interrupt  routine.  The  clock  is  a  single  CMOS 
chip  with  a  standby  power  requirement  of  2.3  to  5  volts  at  30 
microamperes.  Backup  power  for  this  clock  was  provided  by  2  AA 
carbon  cell  batteries  which  provided  power  for  at  least  2  years. 

An  auto-start  EPROM  was  used  to  provide  the  data  logger  with 
power-up  restart  capability.  The  SYM-1  provides  jumpers  to  allow 
the  reset  address  to  be  selected  from  one  of  the  four  ROM/EPROMs 
sockets.  These  jumpers  were  configured  so  that  the  reset  address 
is  obtained  from  the  data  logging  EPROM  which  has  its  own  copy  of 
the  initialization  code  after  which  it  enters  the  data  logging 
routine. 

Another  method  used  to  measure  air  flow  was  with  a  vane 
anemometer.  This  anemometer  is  an  AC  generator  providing  a 
sinusoidal  signal  with  a  frequency  and  a  voltage  which  are 
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proportional  to  the  air  flow.  This  signal  was  buffered  thru  a 
comparator  producing  a  square  wave  of  the  same  frequency  as  the 
original  signal.  A  pulse  counter  in  the  6522  VIA  is  then  used  to 
count  these  pulses  over  one-second  intervals. 

Software 

To  provide  a  better  user  interface  a  display  routine  was 
developed  that  would  display  current  data  for  several  channel 
numbers.  When  a  channel  location  is  selected  by  keying  in  a  2- 
digit  hexadecimal  number,  current  data  for  that  channel  is  then 
displayed.  The  first  eight  channels  are  the  analog  data  con- 
verted to  a  decimal  number  representing  degrees  Fahrenheit.  The 
time  of  day  and  the  pulse  counter  channels  were  added  to  the  end 
of  the  analog  channels  providing  output  for  their  values  also. 
The  normal  state  of  the  display  is  to  cycle  thru  all  the  channels 
leaving  each  data  value  on  the  LED's  for  two  seconds.  The  date 
and  time  are  set  by  selecting  special  channel  numbers  that  are 
not  normally  scanned. 

Version  3 

This  data  logger  was  designed  for  the  solar  grain  drying 
demonstration  project.  In  designing  this  data  logger  a  more  gen- 
eral purpose  data  logger  was  desired  that  could  more  easily  adapt 
to  different  needs.  The  major  change  from  Version  2  was  the  use 
of  a  12-bit  A/D  converter  and  Programmable  Gain  Amplifier.  This 
allows  low-level  signals  such  as  those  provided  by  thermocouples 
to  be  sampled  without  a  special  amplifier.   Also  by  having  12 
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bits  of  resolution,  the  need  to  have  a  signal  use  the  full  range 
of  the  input  to  obtain  acceptable  resolution  was  eliminated. 

A  block  diagram  of  the  version  3  data  logger   is   shown   in 

Figure  1.  Figure  2  shows  the  typical  input  connections  to  the 

data  logger.  A  photograph  of  the  data  logger  is  shown  in  Figure 
3. 

Hardware 

The  Burr  Brown  SDM856JG  Data  Acquisition  System  was  used  for 
analog  input.  This  chip  provides  two  8-channel  multiplexors,  a 
sample  and  hold,  and  a  12-bit  successive  approximation  analog  to 
digital  converter.  The  multiplexors  can  be  configured  for  either 
8  differential  channels  or  16  single-ended  channels.  The  analog 
input  multiplexors  will  take  a  continuous  input  voltage  of  +  20V 
and  provide  reverse  biased  diodes  for  static  discharge  protec- 
tion. Easy  expansion  is  provided  to  32  single-ended  or  16  dif- 
ferential channels  by  the  addition  of  two  more  8-channel  multi- 
plexors. The  A/D  converter  provides  tri-state  outputs  in  three 
4-bit  sections  and  will  complete  a  conversion  in  40  microseconds. 

The  Burr  Brown  3606AG  Programmable  Gain  Amplifier  is  used  to 
condition  the  signal  from  the  multiplexor  to  the  sample  and  hold. 
Four  TTL  lines  select  the  gain  providing  eleven  gain  whose  values 
are  powers  of  two  ranging  from  20  to  210  (1  to  1024) . 

To  supply  the  automatic  power-up  sequence  with  some  confi- 
guration options,  a  bank  of  eight  switches  are  interfaced  to  the 
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FIGURE  3.  SYM-1  Version  3  Data  Logger 


FIGURE  4.   SYM-1   Tape  Reader 
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SYH-1.  These  indicate  the  number  of  channels  (multiples  of  8 
analog,  2  pulse  and  8  digital)  and  the  sampling  frequency.  The 
configuration  setting  capability  gave  this  data  logger  much  more 
versatility  than  the  older  data  loggers. 

The  6522  Versatile  Interface  Adaptor  (VIA)  has  two  pulse 
counters,  one  of  which  can  be  used  to  count  an  external  signal. 
Two  external  pulse-counting  inputs  are  available  from  the  two 
6522  VIA's  that  interface  to  the  A/D  board.  The  pulse  counter 
inputs  go  directly  to  the  6522  VIA  and  therefore  require  a  clean 
TTL  signal  to  give  accurate  counts.  For  example,  a  single  unbuf- 
fered switch  closure  will  result  in  from  1  to  50  counts  on  the 
pulse  counter. 

Eight  digital  lines  were  left  on  the  VIA's  to  provide  eight 
digital  input  channels.  These  inputs  can  be  used  to  measure 
on/off  time  for  devices  such  as  a  fan. 

The  clock  interface  changed  very  little  from  the  Version  2 
data  logger.  The  main  change  was  to  move  it  to  another  6522  VIA 
that  is  partially  used  for  the  cassette  interface.  The  reset 
circuit  is  also  added  on  this  circuit.  A  change  was  made  to  the 
reset  circuit  to  sense  cassette  save  information  along  with  the 
clock  reading.  This  allows  shortening  the  delay  time  from  25 
seconds  (maximum  time  for  a  cassette  save)  to  2  seconds. 

Software 

As  the  program  for  the  data  logger   is  approximately  3,000 
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lines  of  Assembler  code,  the  program  has  been  designed  modularly 
to  make  it  manageable.  There  is  one  large  section  of  the  code 
that  provides  floating  point  functions  and  is  assembled 
separately  from  the  main  logger  program  with  only  the  entry 
points  referenced. 

Opon  power-up,  the  reset  code  is  executed  which  initializes 
the  SYM-1  and  jumps  to  the  data  logging  routine.  The  main  rou- 
tine initializes  memory,  stores  the  interrupt  vector,  and  exe- 
cutes the  show  routine  to  display  data  on  the  SYM-1  LED  display. 
Each  input  module  has  an  entry  point  referenced  by  show  that 
displays  the  appropriate  values  for  each  channel  in  that  module. 

All  the  data  logging  activities  occur  under  interrupt  con- 
trol. The  clock  chip  generates  an  interrupt  signal  each  second 
causing  the  SYM-1  to  stop  what  it  is  doing  and  enter  the  inter- 
rupt routine.  The  SYM-1  then  reads  the  clock;  calls  the  every- 
second  routine;  determines  according  to  the  switch  settings 
whether  it  is  time  to  sample  data,  average  data,  and/or  save  data 
on  tape;  and  calls  a  routine  to  do  each  job  in  order.  These  rou- 
tines are  short  and  call  the  appropriate  routines  from  each 
module. 

The  data  manager  routines  define  the  format  of  the  data 
array  and  manipulate  it  for  averaging  and  saving  of  the  data. 
The  data  block  consists  of  a  fixed-sized  header  which  includes 
the  logger  ID  number;  the  number  of  analog,  digital,  and  pulse 
channels;  and  the  coded  times  for  sampling,  averaging,  and  saving 
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data.   Following  this  header  are  multiple  data  blocks,  the  size 
determined  by  the  number  of  channels  given  in  the  header. 

The  data  blocks  consist  of  the  current  time,  the  number  of 
analog  and  digital  samples,  the  sum  of  the  analog  samples,  the 
sum  of  the  digital  samples,  the  number  of  seconds  of  pulse  data, 
and  total  pulse  counts.  No  averaging  takes  place  in  the  data 
logger  itself  leaving  the  division  for  later.  At  the  average 
time  interval,  the  entire  array  of  data  blocks  is  moved  up  in 
memory  and  space  is  cleared  for  the  next  data  block.  This  keeps 
the  current  data  in  a  fixed  location  while  the  oldest  data  is 
erased  from  memory. 

The  analog  section  reads  each  channel  at  the  sample  time 
interval  and  adds  its  value  to  the  summing  registers  in  the  data 
block.  The  A/D  conversion  routine  selects  the  current  channel, 
sets  its  gain,  and  does  the  conversion.  The  auto-ranging  code 
then  checks  for  overflow  of  which  it  reduces  the  gain  and  retries 
the  conversion.  After  a  good  conversion,  the  converted  value  is 
checked  to  see  what  gain  would  be  required  to  use  all  but  the 
most  significant  bit.  This  gain  is  stored  for  the  next  conver- 
sion on  that  channel.  Since  the  programmable  gain  amplifier  has 
eleven  gain  levels  which  are  powers  of  two,  floating  point  data 
simply  becomes  the  converted  value  with  the  negative  of  the  gain 
as  the  exponent.  The  digital  channels  are  implemented  as  on-time 
accumulators.  For  each  bit  set  the  appropriate  register  is 
incremented  at  the  sample  time  internal.  This  input  can  be  used 
to  determine  total  time  or  percent  of  total  time. 
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CASSETTE  TAPE  READER 

The  SYM-1  microcomputer  used  to  read  the  data  tapes  recorded 
by  the  SYM-1  Data  Loggers  is  pictured  in  Figure  4.  The  SYM-1  was 
used  because  cassette  data  recording  formats  are  not  standard  and 
vary  from  computer  to  computer.  The  reader  is  designed  so  that 
the  destination  of  the  data  can  be  any  computer  that  has  a  RS232 
interface  such  as  the  UNIX  system,  Apple  II  or  Radio  Shack  TRS- 
80. 

The  serial  interface  on  the  SYM-1  is  a  software  interface 
and  provides  no  hardware  modem  or  flow  control  signals.  The 
software  serial  interface  is  implemented  with  one  output  bit  and 
one  input  bit.  For  serial  output,  a  program  with  precise  timing 
loops  puts  each  bit  in  succession  on  the  output  port.  For  serial 
input  the  reverse  is  done  after  receiving  a  start  bit  and  then 
the  program  samples  the  input  for  each  bit  at  the  precise  time. 
Since  each  operation  takes  the  full  dedication  of  the  micropro- 
cessor, transfer  in  only  one  direction  can  occur  at  a  time  and 
any  input  that  occurs  while  the  processor  is  not  ready  for  input 
is  lost. 

The  first  method  of  reading  data  from  the  SYM-1  was  by  using 
the  existing  SYM-1  monitor  program.  The  SYM-1  provides  the  capa- 
bility of  using  either  the  on-board  keypad  or  the  serial  inter- 
face as  the  control  and  output  device  and  the  monitor  provides 
commands  to  read  a  file  from  the  cassette  into  memory  and  to  do  a 
hexadecimal  dump  of  memory. 
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To  get  the  data  from  the  SYM-1  to  the  UNIX  computer  requires 
the  connection  of  the  SYM-1  to  the  UNIX  computer  on  a  serial 
line.  In  order  to  avoid  writing  a  program  on  UNIX  to  directly 
control  the  SYM-1,  a  switch  box  (Figure  5)  was  built  to  allow  a 
terminal  to  control  both  the  SYM-1  and  UNIX  computer  and  direct 
the  output  of  the  SYM-1  to  either  the  terminal  or  to  UNIX.  The 
switch  box  is  configured  as  a  loop  between  the  terminal,  the 
SYM-1,  and  the  UNIX  computer.  When  all  three  devices  are  in  the 
loop,  output  from  the  terminal  goes  to  the  SYM-1,  output  from  the 
SYM-1  goes  to  UNIX,  and  output  from  UNIX  goes  to  the  terminal. 
When  a  device  is  switched  out,  its  input  is  connected  to  its  out- 
put bypassing  that  device  in  the  loop.  For  example,  switching 
out  the  SYM-1  sends  the  output  from  the  terminal  to  UNIX. 


Terminal 


UNIX   Computer 


SYM-1 


FIGURE  5.   RS232  Switchbox. 

All  signal  grounds  are  connected  together. 


The  procedure  to  read  a  cassette  file  into  a  file  with  the 
switchbox  on  UNIX  is  as  follows: 
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1.  On  the  UNIX  system  (the  SYM-1  switched  out)  edit  the  desired 
file  and  enter  the  mode  to  append  text  to  the  file. 

2.  On  the  SYM-1  (the  UNIX  switched  out)  read  the  file  from  the 
tape  into  memory. 

3.  Switch  both  the  SYM-1  and  UNIX  into  the  loop  (output  from 
the  SYM-1  goes  to  UNIX)  and  give  the  SYM-1  the  command  to  do 
a  hexadecimal  dump  on  memory. 

This  process  is  repeated  for  each  file  on  the  tape. 

While  this  procedure  got  the  files  transferred,  there  were 
several  drawbacks  to  the  procedure:  (1)  the  process  required 
someone  to  repeatedly  control  the  transfer,  (2)  the  file  that  is 
obtained  on  the  computer  is  in  hexadecimal,  (3)  this  procedure 
requires  that  the  destination  be  able  to  accept  characters  as 
fast  as  they  are  sent.  This  is  not  a  problem  for  UNIX  but  may  be 
a  problem  for  other  computers. 

The  solution  to  these  problems  is  to  write  a  control  program 
for  one  computer  or  both.  A  single  control  program  on  UNIX  would 
not  solve  the  last  problem  and  would  need  to  be  rewritten  for 
each  destination  computer.  A  single  program  on  the  SYM-1  would 
need  specific  information  about  the  editor  at  the  destination  and 
therefore  also  be  destination  specific.  The  third  alternative  is 
to  put  a  program  on  both,  with  the  SYM-1  side  being  as  general  as 
possible,  but  requiring  a  coordinated  program  on  the  destination 
computer. 
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Since  there  is  no  hardware  flow  control  line  available  on 
the  SYM-1,  there  are  several  software  flow  control  features 
available  in  the  reader  program.  The  flow  controls  implemented 
do  not  include  a  conventional  control  such  as  X-ON/X-OFF  since 
that  cannot  be  achieved  but  instead  include  delays  and  request 
characters.  Delays  are  available  and  can  be  programmed  between 
every  character  and  between  every  line.  Request  characters  can 
be  sent  by  the  destination  to  trigger  the  transmission  of  each 
line  or  file,  similar  to  ENQ-ACK.  Because  the  SYM-1  serial 
interface  is  a  software  program  and  can  miss  input  when  it  is  not 
ready,  such  as  in  reading  a  file  from  tape,  a  character  is  sent 
every  second  while  SYM-1  is  expecting  a  request  character.  Each 
of  these  control  parameters  are  programmable  on  the  SYM-1  reader, 
with  several  configurations  pre-programmed  in  a  table. 

The  manual  method  resulted  in  a  transfer  of  hexadecimal 
files  in  which  the  data  was  usually  binary  and  needed  to  be 
transformed  into  ASCII  format  to  be  usable  in  either  a  program  or 
for  visual  scanning.  For  the  Version  3  Data  Logger,  the  SYM-1 
reader  is  programmed  to  interpret  the  data,  eliminate  redundancy, 
and  transfer  the  data  in  ASCII  character  representation  suitable 
for  direct  interpretation.  This  eliminates  one  step  in  the  han- 
dling of  the  data  that  would  otherwise  have  been  even  more  com- 
plex with  the  use  of  floating  point  in  Version  3.  There  is  also 
a  hexadecimal  dump  output  available  in  this  reader  for  the  older 
data  loggers  and  other  data  loggers  that  may  be  programmed  for 
other  data  formats. 
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APPLICATION  OF  THE  DATA  LOGGER 

The  applications  for  which  the  data  loggers  were  built  were 
the  two  DSDA  Solar  Demonstration  Projects.  Both  Version  2  and 
Version  3  were  used  in  these  projects  and  each  performed  well. 
The  data  loggers  were  also  used  in  an  ice  freezing  project  and  in 
engine  performance  data  logging.  These  projects  indicate  the 
versatility  of  the  data  logger  in  applications  for  which  they 
were  not  intended. 

Solar  Livestock  Demonstration 

Version  2  Data  Logger  was  designed  and  built  for  the  USDA 
Solar  Livestock  Demonstration  Project  in  which  nine  solar  collec- 
tors were  instrumented  and  data  collected  for  two  heating  sea- 
sons. All  the  data  loggers  were  located  inside  a  confinement 
swine  building,  usually  in  an  entry  room. 

Although  there  were  a  few  problems  with  the  data  loggers, 
they  collected  data  and  generally  operated  maintenance  free.  A 
major  problem  was  the  occurrence  of  an  ice  storm  in  December  of 
the  first  project  year.  This  ice  storm  caused  power  fluctuations 
and  returned  power  to  the  SYM-1  before  it  had  completely  powered 
down.  On  seven  out  of  nine  data  loggers  state  wide  this  caused 
the  computer  to  miss  the  power  on  reset  signal  and  left  the  com- 
puter in  an  indeterminate  state.  On  five  of  these  the  cassette 
recorder  was  left  on.  This  resulted  in  the  tape  being  used  up  so 
that  no  more  data  could  be  taken  when  power  was  finally  returned 
properly.   This  prompted  the  design  of  the  watch-dog  timer  that 
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monitors  correct  operation  of  the  computer  and  will  generate  a 
reset  signal  within  a  few  seconds  if  nothing  happens.  Another 
concern  was  the  corrosive  environment  in  a  confinement  swine 
building.  A  few  of  the  data  loggers  showed  corrosion  on  the 
solder  connections  and  traces,  but  the  major  problem  was  the 
metallic  parts  of  the  instrument  cases.  There  were  no  failures 
in  the  two  years  of  use  due  to  any  corrosion. 

Solar  Grain  Drying  Project 

The  Version  3  data  logger  was  built  for  the  USDA  Solar  Grain 
Drying  Project  in  which  solar  collectors  were  instrumented  for 
one  drying  season  and  possibly  alternate  use  during  the  winter. 
These  data  loggers  were  generally  located  near  grain  drying  bins 
and  not  near  a  building  in  which  the  data  logger  could  be 
located.  The  first  attempt  at  an  outside  installation  was  to  use 
two  plastic  trash  bags  to  keep  out  moisture.  This  didn't  work  as 
moisture  would  condense  inside  the  case  during  the  daily  tempera- 
ture fluctuations.  Although  the  condensation  did  not  cause 
failure,  about  a  cup  of  water  accumulated  after  a  rain  storm 
which  did  cause  failure.  After  the  logger  was  dried  out  and 
cleaned  it  continued  to  operate  properly. 

The  major  problem  with  the  data  logger  was  that  50%  of  the 
Burr  Brown  data  acquisition  system  chips  either  didn't  work  ini- 
tially or  failed  during  initial  operation.  Although  these 
failures  were  replaced  (in  four  to  six  weeks)  by  Burr  Brown  there 
were  frustrating.   There  were  also  human  factor  problems  with  the 
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data  loggers  getting  unplugged  or  circuit  breakers  being  turned 
off  inadvertently. 

Ice  Freezing 

All  three  versions  of  the  data  loggers  were  modified  for  use 
on  an  ice  freezing  project  to  freeze  ice  during  the  winter.  Each 
of  these  loggers  controlled  the  ice  freezing  as  well  as  taking 
data  on  the  process.  The  control  signals  generated  were  two 
digital  outputs  to  turn  on  a  fan  and  water  valve.  These  signals 
were  both  based  on  the  current  temperature. 

The  first  and  second  versions  of  the  data  loggers  required 
modification  of  the  existing  data  logging  code  to  obtain  the 
appropriate  control  capability.  Because  of  this  need  to  modify 
several  parts  of  the  code,  development  and  debugging  time  was 
longer  than  for  Version  3.  For  the  Version  3  data  logger,  the 
only  changes  needed  in  the  logging  code  were  to  install  two  sub- 
routine calls  into  the  control  code.  The  control  code  then  used 
existing  data  already  sampled,  calculated  the  outputs,  and  stored 
them  in  the  appropriate  locations. 

The  main  problem  in  the  ice  freezing  controllers  was  caused 
by  the  control  relays.  Although  bypass  diodes  were  installed  on 
the  relays,  occasionally  a  spike  would  be  generated  that  was 
large  enough  to  put  the  computer  into  an  indeterminate  state.  In 
the  second  and  third  version,  the  watch-dog  timer  was  used  which 
reset  the  computer  in  the  event  of  a  shutdown  of  this  type, 
allowing  normal  operation  to  continue. 
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Engine  Performance  Logging 

The  SYM-1  data  logger  was  used  to  monitor  engine  performance 
in  alternate  fuels  research.  This  use  of  the  data  logger  was 
possible  only  through  the  versatility  of  the  Version  3  Data 
Logger.  Whereas  long-term  logging  of  solar  collectors  required 
continuous  hourly  sampling,  engine  performance  needs  data  sam- 
pling at  4  second  intervals  during  the  test  periods  with  no  sam- 
pling during  stabilization  of  the  engine.  All  these  requirements 
had  been  built  into  the  data  logger  so  no  modification  was  needed 
for  use  in  data  logging.  The  only  complication  was  is  that  the 
data  logger  is  set  at  power-up  to  automatically  save  data  at  reg- 
ular time  intervals.  This  must  be  defeated  to  prevent  logging  a 
lot  of  data  that  is  not  needed. 

The  initial  problem  in  using  the  data  logger  for  engine 
testing  was  that  the  A/D  converters  were  failing  with  no  apparent 
cause.  This  was  later  attributed  to  having  active  high-level 
inputs  to  the  A/D  with  the  power  off  on  the  data  logger. 


28 


DISCUSSION 

Programming 

The  programming  of  the  data  logger  was  done  entirely  in 
Assembly  language  and  resulted  in  approximately  3000  lines  of 
code  for  Version  3.  The  investment  in  time  for  this  programming 
is  only  worthwhile  when  there  are  several  units  that  will  use  the 
same  code,  in  this  case  for  10  loggers.  This  results  in  an 
equivalent  of  300  lines  of  code  for  each  logger  which  is  a  rea- 
sonable amount  of  code  to  write  for  a  data  logging  task.  In 
order  for  this  type  of  programming  to  be  useful  for  a  fewer 
number  of  data  loggers  the  task  it  is  to  perform  must  be  very 
simple  or  a  higher  level  language  must  be  used. 

With  the  availability  of  larger  EPROMs  and  high-level 
languages  such  as  C  and  Fortran  it  is  now  feasible  to  use  high- 
level  languages  for  programming.  By  using  a  high-level  language, 
other  advantages  would  also  be  realized.  These  would  be  more 
easily  modifiable  code  and  the  ability  to  add  features  that  are 
not  worth  the  programming  effort  in  Assembly  language. 

Data  Acquisition  Hardware 

The  12  bit  analog  to  digital  converter  is  needed  in  any 
flexible  data  acquisition  system.  In  Version  3,  a  single  chip 
includes  the  multiplexors,  sample  and  hold,  voltage  reference, 
analog  to  digital  converter,  and  the  control  circuitry.  This  is 
therefore  an  expensive  chip  as  it   includes  all   the  components 
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needed  for  data  acquisition.  The  problem  with  this  system  is 
that  a  failure  of  one  component  such  as  the  multiplexor  then 
requires  the  replacement  of  the  whole  circuit.  In  our  experience 
the  weakest  part  of  the  Burr  Brown  chip  was  the  voltage  refer- 
ence, resulting  in  the  replacement  of  a  large  component  due  to 
the  failure  of  a  simple  component.  By  using  multiple  chips  the 
individual  chip  cost,  and  therefore  replacement  cost,  is  reduced 
with  very  little  added  complexity.  Interfacing  the  various  chips 
in  the  system  requires  only  the  connection  of  the  outputs  of  one 
chip  to  the  inputs  of  the  next  chip. 

The  programmable  gain  amplifier  is  a  very  powerful  device 
used  on  this  data  logger.  It  effectively  extends  the  12  bit  ana- 
log to  digital  converter  by  the  gain  of  the  amplifier,  in  this 
case  1024  or  equivalent  to  10  bits.  This  allows  simultaneous  use 
of  both  low-level  0  to  5  millivolt  signals  such  as  thermocouples 
and  high-level  0  to  5  volt  signals  such  as  presure  transducers. 
In  working  with  a  mixture  of  devices  there  is  a  slight  effect 
from  the  5  volt  signal  on  the  low-voltage  devices  on  the  same 
multiplexor;  so  for  full  accuracy,  signals  should  be  divided 
among  the  channels  according  to  full  scale  range. 

A  problem  that  showed  up  on  the  programmable  gain  amplifier 
after  it  was  in  use  was  the  zero  offset  values.  There  is  offset 
adjustment  on  the  amplifier,  but  in  using  thermocouples  the  resi- 
dual offset  and  temperature  dependent  offset  can  be  significant. 
To  correct  for  this  a  channel  is  connected  to  ground  and  sub- 
tracted from  the  thermocouple  readings.   For  higher  voltage 
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inputs  this  offset  is  insignificant  and  the  subtraction  isn't 
needed.  The  problem  appeared  in  reading  a  signal  ranging  from 
270  to  310  millivolts.  This  signal  needs  the  full  resolution  to 
achieve  accuracy  with  the  270  millivolt  offset  voltage.  In  read- 
ing this  signal  two  different  amplifier  gains  are  used  by  the 
auto-ranging  software  code  and  it  was  observed  that  the  different 
gains  have  different  offset  voltages.  Since  the  channel  tied  to 
ground  is  always  sampled  at  the  highest  gain,  it  was  not  obtain- 
ing the  true  offset  seen  by  this  signal.  To  correct  this  the 
zero  channel  needs  to  be  read  at  the  same  gain  as  the  data  chan- 
nel and  subtracted  at  sample  time  instead  of  later. 

Cassette  Tape  Reader 

There  were  some  problems  in  reading  the  tapes  written  by  the 
data  loggers.  Both  the  Radio  Shack  CTR-80  and  CTR-80a  tape 
recorders  were  used  on  the  data  loggers.  The  newer  CTR-80a  is 
much  more  reliable  than  the  CTR-80  although  both  worked.  The 
major  problem  was  in  the  head  alignment  of  the  writing  and  read- 
ing recorders.  If  there  was  any  difference  in  head  alignment 
then  the  tape  would  not  read  properly  until  the  head  alignment 
was  adjusted.  Also  interesting  was  the  fact  that  the  optimum 
volume  level  was  different  on  the  two  recorder  models. 
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RECOMMENDATIONS  FOR  FUTURE  WORK 

In  designing  a  microcomputer-based  data  logger  the  two 
tradeoffs  that  must  be  balanced  are  hardware  and  software  cost. 
In  general  the  lower  the  cost  of  hardware,  the  more  time  that  is 
required  for  programming.  In  the  design  of  these  data  loggers 
the  hardware  cost  was  kept  to  a  minimum  at  the  expense  of 
software  cost.  There  have  also  been  several  developments  that 
make  designing  and  building  a  data  logger  simpler  than  before. 
The  recommendations  for  a  new  data  logger  of  this  type  are  as 
follows: 

1.  Unless  there  is  evidence  of  much  higher  reliability,  use 
separate  multiplexors,  sample  and  hold,  and  analog  to  digi- 
tal converter  chips  instead  of  the  all-in-one  type.  The 
only  real  advantage  of  the  all-in-one  is  that  the  control 
circuitry  is  included  which  can  easily  be  handled  in  the 
microcomputer. 

2.  Put  the  terminal  connectors  on  a  separate  board  attached  to 
the  analog  to  digital  converter  board  with  a  ribbon  cable. 
This  allows  more  flexible  packaging  of  the  system.  Also  by 
adding  3  or  4  channel  select  lines  and  locating  second  stage 
multiplexors  on  the  connector  board,  up  to  128  differential 
channels  could  be  selected. 

3.  Possibly  select  a  newer  single  board  computer  using  a  16-bit 
microprocessor.  This  would  greatly  simplify  programming  of 
the  data  logger. 
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4.  Select  a  development  system  that  provides  a  high  level 
language  that  can  be  used  to  program  the  microcomputer.  For 
example  a  C  compiler  is  now  available  for  the  Apple  II  and 
cross  compilers  are  available  for  other  computers.  A  high 
level  language  would  produce  larger  code  which  must  be 
allowed  for  but  the  development  time  would  be  much  faster. 

5.  Use  CMOS  battery  backup  RAH  for  configuration  storage  and 
possibly  data  storage.  This  would  add  even  more  flexibility 
to  the  data  logger. 

6.  Add  a  serial  port  that  can  be  used  for  remote  modem  interro- 
gation or  possibly  real  time  access  by  another  computer. 
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SUMMARY 

The  data  logger  using  the  SYM-1  microcomputer  collected  data 
on  solar  collectors  as  well  as  other  projects.  This  data  logger 
was  built  for  approximately  one-third  the  hardware  cost  of  com- 
parable data  loggers.  The  total  parts  cost  of  the  data  logger 
was  $750  compared  to  over  $2000  for  commercial  data  loggers. 
Software  development  required  approximately  1000  hours  to  program 
and  debug  the  data  logger. 

Three  versions  of  the  data  logger  were  designed  and  built 
during  the  two  solar  demonstration  projects.  These  data  loggers 
show  a  progression  in  capabilities  from  a  simple  data  logger  pro- 
grammed for  a  specific  task  to  a  general  purpose  data  logger. 
This  was  demonstrated  by  the  use  of  the  data  logger  in  ice  freez- 
ing and  engine  performance  testing  projects. 

The  12-bit  analog  to  digital  converter  and  programmable  gain 
amplifier  provide  analog  input  ranges  such  that  both  low  level 
and  high  level  sensors  can  be  used  concurrently.  The  real  time 
clock  provides  time  of  day  for  time  stamping  of  the  data  and 
allow  automatic  power-up  operation  where  time  is  needed  with  the 
data.  A  watch-dog  timer  keeps  the  data  logger  function  properly 
during  power  fluctuations  that  might  otherwise  cause  the  data 
logger  to  malfunction. 

Another  SYM-1  was  used  as  a  cassette  tape  reader  to  read  the 
tapes  produced  by  the  data  logger.  The  data  is  read  from  tape 
and  then  transmitted  to  another  computer  using  the   RS232 
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interface.   Several  flow  control  options  are  available  to  control 
the  flow  of  data  from  the  SYM-1. 
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CONCLUSIONS 

Building  a  data  logger  using  a  single  board  microcomputer 
and  readily  available  data  acquisition  components  is  an  alterna- 
tive to  purchasing  a  commercially  available  data  logger  provided 
several  data  loggers  are  to  be  built  alike.  This  can  be  for  a 
lower  cost  while  providing  greater  performance. 

The  data  logging  software  is  not  a  small  programming  task 
and  represents  the  single  largest  cost  item  for  the  data  logger. 
To  be  feasible  the  software  cost  must  be  spread  over  several 
units. 

The  Burr  Brown  Data  Acquisition  System  and  similar  devices 
do  not  the  provide  much  of  an  advantage  over  separate  components. 
They  are  actually  4  or  5  separate  devices  on  a  single  chip  that 
must  still  be  connected  together  for  operation.  There  is  little 
or  no  cost  savings  by  using  the  single  chip,  while  if  the  multi- 
plexor goes  bad  the  entire  $175  package  must  be  replaced  instead 
of  a  single  $12  multiplexor  chip. 

A  common  practice  to  correct  for  amplifier  offset  is  to  read 
an  input  channel  that  has  its  positive  and  negative  inputs  tied 
together  and  substracting  the  reading  from  the  other  channel. 
With  the  programmable  gain  amplifier  this  must  be  modified  as 
there  may  be  different  offsets  for  each  gain. 

For  continuous  unattended  operation  of  a  computer,  special 
considerations  must  be  taken  to  properly  handle  power  losses  and 
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fluctuations.  The  watch-dog  timer  provided  for  reliable  recovery 
from  power  supply  problems.  After  the  watch-dog  timer  was 
installed  there  were  no  malfunctions  due  to  power  variations. 

In  programming  for  continuous  operation  where  there  may  be 
power  problems,  special  care  must  be  taken  to  verify  correct 
operation.  There  were  instances  where  a  memory  location  would 
get  changed  by  some  random  event  and  result  in  improper  logging 
operation.  The  software  should  provide  extensive  checks  to  ver- 
ify consistency  of  operation  and  these  should  be  run  periodically 
rather  than  only  upon  reset. 
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DSERS  MANUAL  FOB  THE  SYM-1  BASED  DATA 
LOGGER  VERSION  3  AND  READER  VERSION  2 

BY 

Michael  D.  Schwarz 


1.   SYM  BASED  DATA  LOGGER 

1.1   HARPWARE 

1.1.1  lami  connections  Input  connections  to  the  data  logger  are  made  thru 
screw  type  terminal  blocks  on  the  interface  board.  For  ease  of  use,  a  wire 
wrap  pin  is  connected  to  each  terminal  pole  to  provide  alternate  on-board  con- 
nections. The  terminal  blocks  are  arranged  in  2  or  3  rows  of  2  terminal 
blocks  each.  For  discussion,  the  rows  are  numbered  1,2,  and  3  starting  with 
the  one  closest  to  the  SYM-1 ,  and  the  blocks  will  be  lettered  A  and  B  from  the 
edge  of  the  board.  This  number  system  corresponds  to  the  assembly  drawings 
showing  the  bottom  view  of  the  interface  board.  Due  to  availability  of  parts, 
a  mixture  of  8,  10,  4  12  pole,  terminal  blocks  were  used.  Therefore  the 
actual  configuration  may  be  sightly  different  from  that  described  here. 

The  first  row  contains  power  supply  connectors  and  digital  inputs  to  the 
SYM-1.  Terminals  1A1  to  1A10  contain  the  power  supply  connections  in  the  fol- 
lowing order  starting  at  1A1: 

AJ3ND,  -15,  -15,  A_GND,  +15,  +15,  D_GND,  +5,  +5,  D_GND 

A_GND  is  the  analog  ground  and  D_GND  is  the  digital  ground.  Although  these 
grounds  are  connected,  they  should  be  used  separately  to  prevent  ground  loops 
and  digital  noise  on  the  analog  ground.  The  analog  ground  has  been  connected 
to  pole  1A1  on  this  row  to  reduce  the  digital  noise  on  the  analog  power  supply 
lines . 

The  next  two  poles,  either  1A11  &  1A12  or  1B1  &  1B2,  are  pulse  counting 
inputs.  The  pulse  counting  inputs  will  measure  either  event  counts  or  a  fre- 
quency input  up  to  60kHz.  At  the  higher  frequencies  some  time  periods  may  be 
discarded  due  to  overrun  during  cassette  saves.  The  pulse  inputs  are  digital 
signals  from  0  to  5  volts.  This  signal  should  be  a  clean  signal  with  no  noise 
as  very  fast  noise  due  to  contact  bounce  will  be  detected.  For  example,  a 
simple  switch  may  give  as  many  as  30  counts  on  one  switch  closure.  Signals 
may  need  filtered  and/or  buffered  to  eliminate  noise  for  pul3e  inputs. 

The  last  8  poles,  numbered  1B1  to  1B8  or  1B3  to  1B10,  are  digital  inputs 
to  the  SYM-1 .  The  digital  channels  are  single  bit  channels  sampled  as  either 
on  or  off.  The  channels  are  sampled  at  the  sample  time  interval  (normally 
once  a  second)  and  each  of  the  counter  registers  contain  the  sum  of  the  number 
of  times  the  channel  is  on.  This  supplies  data  for  slow  devices  such  as  a  fan 
on  percentage  of  on  time. 

Row  2  contains  16  analog  inputs  to  the  multiplexors.  The  input  connec- 
tors are  organized  as  follows: 
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P0LE:2A1  2A2  2A3  2A4  2A5  2A6  2A7  2A8  2B1  2B2  2B3  2B4  2B5  2B6  2B7  2B8 
DIFF:  OH,  OL,  1H,  1L,  2H,  2L,  3H,  3L,  4H,  4L,  5H,  5L,  6H,  6L,  7H,  7L 
SING:  00,  08,  01,  09,  02,  10,  03,  11,  04,  12,  05,  13,  06,  14,  07,  15 

Any  terminal  poles  numbered  9  through  12  are  connected  to  the  signal  ground 
used  for  single  ended  inputs.  Using  A_GND  or  D_GND  for  the  signal  ground  will 
result  in  a  bias  voltage  of  several  millivolts  if  used  as  the  signal  ground. 
Although  this  bias  exists  it  may  be  desirable  if  current  sensors  are  used 
along  with  low  voltage  inputs,  and  the  currents  produce  significant  voltage 
drops. 

An  AD590  integrated  circuit  temperature  sensor  is  on  the  board  near  the 
analog  input  connectors.  This  temperature  sensor  measures  absolute  tempera- 
ture without  a  compensating  Junction  and  can  be  used  as  a  reference  tempera- 
ture for  thermocouples.  The  output  of  the  on-board  temperature  sensor  is  a 
wire  wrap  pin  near  pole  2B7.  This  may  be  wire  wrapped  to  any  channel  desired, 
with  the  low  side  tied  to  signal  ground  for  differential  mode. 

Due  to  offset  voltages  in  amplifiers,  there  exists  a  voltage  offset  of 
+/-2  millivolts  imposed  on  the  inputs  that  cannot  be  nulled.  For  low  level 
inputs  this  is  significant  and  should  be  compensated  for  by  tying  an  input 
channel  to  the  signal  ground.  The  reading  on  this  channel  will  be  the  offset 
voltage,  which  can  then  be  subtracted  from  all  channels  during  data  process- 
ing. 

Row  3,  if  installed,  is  identical  to  row  2  except  for  differential  chan- 
nels 8  through  15  and  single  ended  channels  16  through  31. 

1.1.2  Calibrating  ihs   analog  to  digital  converter  and  amplifier. 

1.  The  amplifier  is  calibrated  first  using  a  digital  volt  meter.  It  may  be 
desireable  to  add  a  wire  wrap  pin  connected  to  the  amplifier  output  for 
easy  access  to  this  signal.  Before  beginning  the  calibration  adjust  the 
pots  on  header3  to  center  positions,  and  set  the  SPOT  switch  on  the  clock 
board  to  the  up  position. 

Set  the  SYM-1  to  a  fixed  gain  of  1  by  entering  a  $80  in  memory  loca- 
tion $40;  and  disabling  interrupts  by  entering  $7F  at  $A00E.  Do  this  by 
entering  *CR'  NMEM'  4  0  *CR*  8  0  *CR'  "MEM'  A  0  0  E  *CR'  7  F  XCR'  "GO' 
'CR'.  If  there  are  problems  consult  the  SYM-1  refrence  manual  on  the 
memory  command.  Set  the  SYM-1  to  display  channel  0  and  then  proceed  with 
the  amplifier  calibration. 

With  the  input  to  channel  0  tied  to  signal  ground,  adjust  pot  1  (pot 
on  pin  1  and  2  of  header3)  until  the  output  of  the  amplifier  reads  as 
close  to  zero  as  possible.  This  should  be  done  using  a  volt  meter  since 
the  A/D  has  not  been  calibrated  yet. 

Reset  the  SYM-1  so  that  maximum  gain  is  selected  by  entering  $8A 
into  location  $40  as  above.  Adjust  pot  2  (pot  on  pin  3  and  4  of  header 
3)  until  the  output  of  the  amplifier  reads  as  close  to  zero  as  possible. 
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2.  Calibration  of  the  analog  to  digital  converter  should  proceed  after  the 
amplifier  is  calibrated.  The  SYM-1  should  be  set  for  a  gain  of  zero  by- 
entering  $80  in  location  $40. 

Zero  adjustment  is  made  first  with  the  input  left  at  zero  as  above 
sampling  analog  channel  zero.  Adjust  pot  3  (pot  on  pin  5  and  6  of 
header3)  until  the  SIM-1  reads  0  on  the  display. 

Adjust  the  gain  by  putting  a  known  voltage  to  the  input  channel  (The 
5  volt  power  supply  is  usually  below  5  volts  at  the  interface  board  and 
works  well).  Knowing  the  SYM-1  reading  and  the  actual  reading  from  a 
volt  meter  adjust  out  twice  the  voltage  difference.  EX:  The  STM-1  reads 
4.7V  and  the  voltmeter  reads  4.75V.  Adjust  pot  4  so  the  sym  reads  4.8V 
(4.7  +  2»(4.75-4.70)).  The  actual  overadjustment  should  be  ((5  +  volt 
reading)/5).  Go  back  and  readjust  the  zero  point  as  it  will  be  off  after 
this  adjustment.  The  zero  and  5  volt  readings  should  converge  on  the 
proper  values  within  about  two  adjustments. 

3.  An  alternate  adjustment  is  available  if  a  voltage  source  or  differential 
inputs  are  available.  This  adjustment  is  a  replaoment  for  the  adjust- 
ments of  pots  3  4  4  above. 

Instead  of  using  zero  volt3  in  3  above  use  -4.998V  (-4.5  to  -4.99 
will  also  work  ok).  Adjust  pot  3  until  the  STM-1  reads  the  negative  vol- 
tage. 

Now  apply  +4. 998V  (4.5  to  4.99)  to  input  0.  Adjust  the  gain  pot  (4) 
to  read  the  applyed  voltage.  This  calibration  is  similar  to  the  calibra- 
tion given  in  the  SDM856  data  sheet. 

1.2  SOFTWARE 

The  data  logging  program  is  set  to  auto  start  on  reset  or  power  up.  This 
makes  the  logger  able  to  deal  with  power  outages  reasonably.  Any  time  power 
is  applied  or  reset  is  pressed  the  logger  restarts  data  logging.  All  memory 
is  initialized  unless  the  check  variables  are  identical  to  the  expected 
values,  assuming  memory  has  not  been  changed.  After  the  initialization  the 
program  starts  operation  as  if  nothing  happened.  The  data  in  memory  that 
hasn't  been  saved  (up  to  3  hours  max)  will  be  lost  during  a  power  outage.  No 
data  on  the  tape  can  be  lost. 

1.2.1  Switches  Switches  have  been  included  to  give  some  configuration  infor- 
mation to  the  data  logger  when  it  is  powered  up.  The  settings  determine  the 
number  of  analog  channels  and  sample  timing. 
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Switch  useage 

switch Use 

1   Not  Used  (leave  off) 
2,3   Number  of  analog  channels 

4  Digital  channels 

5  Pulse  channels 

6,7,8   Sample  times 

The  analog  channels  are  set  using  switches  2  and  3  as  follows: 

ANALOG  CHANNELS 


Switches 
3 2 


Number  of 
Channels 


OFF 

OFF 

8 

(0-  7) 

OFF 

ON 

16 

(0-15) 

ON 

OFF 

21 

(0-23) 

ON 

ON 

32 

(0-31) 

The  digital  channels  are  selected  by  switch  4.  When  switch  4  is  on,  8  digital 
channels  are  selected  and  will  be  sampled  at  the  sample  time  interval.  When 
switch  4  is  off,  no  digital  channels  will  be  recorded  or  sampled. 

Pulse  channels  are  selected  by  switch  5.  Two  pulse  counting  channels  are 
available  and  are  sampled  when  switch  5  in  on.  When  switch  5  is  off,  no  pulse 
channels  are  sampled. 

The  sample  times  are  determined  by  switches  6,  7,  4  8.  These  switches 
determine  the  sample  time  interval,  and  data  averaging  time  interval.  Sample 
and  average  times  are  as  follows: 

Time  Interval  Selection  Switches 


; 

Switches 

Time  : 

Interval 

8 

7 

6 

sample 

average 

OFF 

OFF 

OFF 

1  SEC 

1  SEC 

OFF 

OFF 

ON 

1  SEC 

3.75  SEC 

OFF 

ON 

OFF 

1  SEC 

15  SEC 

OFF 

ON 

ON 

1  SEC 

1  MIN 

ON 

OFF 

OFF 

1  SEC 

3.75  MIN 

ON 

OFF 

ON 

1  SEC 

15  SEC 

ON 

ON 

OFF 

1  SEC 
3.75  MIN 

1  HR 

p 

ON 

ON 

3  HR 

These  values  are  not  exact 

but  are 

rounded 

up  to 

the  next  integer. 

Internal  representation  of  the  time  intervals  is  a  single  byte  number  from  0 
to  12.  This  number  is  approximately  the  log  base  2  of  the  time  interval. 
This  internal  number  appears  in  two  places:  the  operating  display  and  the  data 
printouts  from  the  reader.  Time  interval  numbers  and  actual  time  intervals 
are  as  follows: 
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Internal  Time  Interval  Representation 

Internal  number      Actual  time 
Hexadecimal   Decimal     interval 


0 

0 

1     SEC 

1 

1 

1.875  SEC 

2 

2 

3.75  SEC 

3 

3 

7.5   SEC 

t 

4 

15     SEC 

5 

5 

30     SEC 

6 

6 

1     MIN 

r 

7 

1.875  MIN 

8 

8 

3.75  MIN 

9 

9 

7.5   MIN 

A 

10 

15     MIN 

B 

11 

30     MIN 

C 

12 

1     HOUR 

D 

13 

1.5   HOUR 

E 

14 

3     HODR 

The  time  intervals  that  have  fractional  parts  are  not  constant  time  Intervals 
but  are  rounded  up  to  the  nearest  integer.  For  example,  the  3.75  second 
interval  should  trigger  at  0,  3-75,  7.5,  11.25,  15,  18.75,  etc.  second  marks. 
Actual  triggering  times  are  at  1,  4,  8,  12,  15,  19,  etc.  second  marks  respec- 
tively. 

The  save  time  interval  is  oalcuated  using  the  following  constraints: 

1 .  All  memory  available  is  allocated  and  the  maximum  number  of  samples  that 
can  be  held  is  oalcuated.  From  this  the  longest  save  time  interval  is 
calcuated  to  save  all  data  twice. 

2.  The  maximum  time  interval  is  set  as  the  maximum  of  1  hour  and  the  average 
time  interval. 

3.  The  save  time  interval  is  then  set  as  the  minimum  of  the  intervals  from  1 
and  2  above. 

4.  The  memory  saved  on  tape  at  the  sae  interval  is  adjusted  so  that  each 
data  sample  is  saved  no  more  than  four  times.  This  reduces  tape  useage 
when  long  average  intervals  are  selected. 

1.2.2  SYM-1  Operating  Display  The  display  during  data  logging  operations  is 
used  to  show  current  channels  of  the  inputs  to  the  data  logger.  The  display 
normally  cycles  every  2  seconds  and  displays  the  next  channel,  wrapping  around 
to  the  first  channel  when  the  last  channel  is  reached.  Channels  to  be 
displayed  are  divided  into  sections  with  related  channels.  Sections  are  num- 
bered from  0  and  the  channels  within  the  sections  are  also  numbered  from  0 
with  one  exception. 

Several  methods  are  provided  to  change  the  display  to  allow  more  flexible 
use  of  the  data  logger  in  use  and  troubleshooting.  The  data  logging  process 
proceeds  independently  of  the  display  program,  and  is  unaltered  by  the 
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manipulating  of  tbe  display.  There  are  six  general  control  keys  that  manipu- 
late the  display.  The  "GO1  key  will  cause  the  display  to  cycle  in  the  normal 
default  method.  The  "REG'  key  will  cause  the  display  to  cycle  only  on  the 
current  section  instead  of  all  sections.  The  "MEM*  key  will  stop  the  display 
entirely  and  redisplay  the  current  value  every  .5  seconds.  This  also  occures 
as  the  result  of  any  other  key  except  the  "GO1  and  "REG'  keys.  The  "->'  key 
will  advance  to  the  next  channel  in  the  current  section.  The  "<-'  key  will 
backup  the  display  one  channel  in  the  current  section.  The  "CR*  causes  the 
display  program  to  jump  to  the  SIM-1  monitor.  This  is  not  for  general  use  but 
can  be  useful  in  debugging  and  checking  out  the  interface  boards.  To  resume 
the  display  program  from  the  monitor,  press  "GO'  "CR'  or  "RST'.  "RST'  should 
only  be  used  as  a  last  resort  as  some  data  may  be  lost  by  using  "RST1.  If 
that  doesn't  work  then  power  off-on  cycling  is  the  last  resort. 

The  general  format  to  select  a  display  channel  randomly  is  to  enter: 
^section  number'  "-'  "channel  number'  "CR'.  The  format  can  be  shortened  to 
"channel  number'  "CR'  if  the  desired  section  is  the  current  one. 

Display  Sections. 

0  -    Section  0  contains  the  clock  channels.  Channel  0  is  the  date  in 

"MM.DD.IY",  1  is  the  time  in  "HH.MM.SS".  Channels  2  thru  9  are  unde- 
fined as  this  is  the  only  section  where  the  channels  are  not  selected 
consecutively.  To  set  the  date,  select  channel  10  of  the  clock  section 
manually.  The  SYM  will  respond  with  ■  date?".  To  set  the  date  enter 
"month*  "-'  "day*  "-'  "year*.  Then,  while  holding  down  the  black  but- 
ton on  the  clock  board,  press  'CR'  for  the  new  time  to  take  effect. 
The  time  is  set  similarly  by  selecting  channel  11.  The  SIM  will 
respond  with  ■  time?"  and  the  time  is  entered  as  "hour  (24-hour  for- 
mat)' "-'  "minute*.  Seconds  are  automatically  set  to  zero  when  "CR*  is 
pressed. 

Section  1  displays  the  analog  channels  currently  being  sampled.  The 
display  is  either  fixed  or  floating  point  representation  depending  on 
the  value  of  the  number.  Fixed  notation  has  a  4  digit  mantissa  with  1 
decimal  point  and  scientific  notation  has  a  decimal  point,  3  mantissa 
digits,  a  decimal  point,  1  base  10  exponent  digit,  and  the  sign  bit  of 
the  exponent.  The  first  two  digits  represent  the  channel  number,  while 
the  remaining  4  digits  display  the  numeric  value  of  the  data  in  mil- 
livolts. In  fixed  notation  the  decimal  is  placed  in  the  correct  place 
in  the  number  with  the  sign  bit  being  the  point  between  the  two  channel 
number  digits.  In  scientific  notation  the  decimal  point  preceding  the 
mantissa  and  the  point  preceding  the  exponent  are  displayed.  Sign  bit 
of  the  mantissa  is  the  same  as  in  fixed  notation,  while  the  sign  of  the 
exponent  i3  the  last  decimal  point. 

EX: 

0  112  4  1.  is  1241.0  millivolts  on  channel  1 

0.1  1  2  4.1  is  -124.1  millivolts  on  channel  1 

0  4.1  2  4  1  is  .1241  millivolts  on  channel  4 

0  4.1  2  4.1  is  .124e+1  millivolts  on  channel  4 

0  4.1  2  4.1.  is  .124E-1  millivolts  on  channel  4 

0.4.1  2  4.1.  is  -.124E-1  millivolts  on  channel  4 


1  - 
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2  -    Section  2  displays  the  digital  channels  if  they  are  selected,  and  will 

skip  to  section  3  if  not  selected.  The  display  is  the  channel  number 
(do  to  d7)  followed  by  an  on  or  off  Indication  of  the  channel. 

3  -    Section  3  displays  the  pulse  channels  if  they  are  selected,  and  will 

skip  to  section  4  if  not  selected.  The  display  consists  of  4  channels 
indicated  by  PO  to  P3  in  the  first  two  digits.  The  number  is  then 
displayed  as  total  counts  in  the  format  described  in  the  section  on 
analog  data.  PO  and  P1  are  the  current  second  count  on  the  pulse  chan- 
nels, and  P2  and  P3  are  the  current  minute  count  on  the  respective 
channels.  This  gives  both  a  second  count  for  high  frequency  pulses  and 
a  minute  count  for  low  frequency  pulses.  The  P2  and  P3  values  are 
modulo  65536  so  errors  will  result  on  these  two  values  if  the  signal  is 
greater  than  1000kHz. 

4  -    Section  4  is  a  null  section  and  causes  the  section  number  to  be  reset 

to  zero. 

5  -    Section  5  displays  some  general  configuration  data.  This  section  is 

not  normally  displayed  and  must  be  selected  manually.  The  first  two 
digits  represent  the  channel  number  and  the  last  4  digits  represent  the 
value.  No  decimal  points  are  on  and  all  numbers  except  as  noted  are  in 
decimal  in  this  section.  The  channels  are  as  follows: 

0.  This  is  the  logger  id  t  burnt  into  rom.  This  is  a  unique  number 
on  each  logger  and  is  stored  in  the  data  to  provide  an  automatic 
method  for  data  identification. 

1 .  This  is  the  number  of  analog  channels  being  sampled  and 
corresponds  to  the  switch  settings. 

2.  This  is  the  number  of  digital  channels  being  sampled  and 
corresponds  to  the  switch  settings. 

3.  This  is  the  number  of  pulse  channels  being  sampled  and  corresponds 
to  the  switch  settings. 

4.  This  is  the  number  of  records  that  are  actually  being  saved  on 
tape.  Data  is  maintained  in  all  of  the  memory  even  though  only 
part  of  it  is  saved  on  tape. 

5.  This  is  the  number  of  bytes  that  are  used  to  store  a  record  of 
data.  Each  time  data  is  saved  on  tape,  this  is  the  number  of 
bytes  that  is  recorded. 

6.  This  is  the  last  location  of  memory  that  is  being  stored  on  tape. 
Storing  begins  at  hexldecimal  location  200. 

7.  This  is  the  end  of  consecutive  memory  in  hexldecimal.  Data  is 
stored  in  all  memory  up  to  this  location,  but  not  all  of  it  is 
saved.  On  power  up  the  STM-1  saves  all  consecutive  memory  start- 
ing at  $200  that  is  Installed. 
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8.  This  display  shows  the  sample,  average,  and  save  time  intervals 
being  used.  These  are  coded  hexadecimal  numbers  representing  the 
switch  settings  and  are  described  above. 

9.  The  center  two  digits  are  the  a/d  error  count  and  should  be  zero 
except  when  the  a/d  board  is  unplugged.  The  last  two  digits  are 
the  current  tape  label  which  is  derived  from  the  time  as  follows: 
Label  =  ((day  of  month)  •  8)  +  ((hour  of  day)  /  3) 

This  display  is  in  hexadecimal  notation. 

1.2.3  Data  Storage  Format  The  data  is  stored  in  a  record  format  with  a 
header  at  the  beginning.  The  header  is  the  fir3t  8  bytes  and  consists  of  the 
following  information,  one  binary  byte  each. 

LOGGERID,  SWITCHES,  #ANALOG  CHANNELS,  #DIGITAL  CHANNELS, 

#PULSE  CHANNELS,  SAMPLE  INTERVAL,  AVERAGE  INTERVAL,  SAVE  INTERVAL 

The  data  records  continue  in  the  following  format: 

1.  The  record  header  occurs  first  and  contains  the  time  and  count.  The  time 
is  6  BCD  bytes  in  the  following  order:  Tear,  Month,  Day,  Hour,  Minute, 
Second.  The  next  2  bytes  is  a  binary  integer  containing  the  number  of 
samples  averaged  in  this  record. 

2.  The  next  series  of  bytes  are  the  analog  readings.  The  tape  stores  sums  of 
samples  of  pure  analog  to  digital  conversions.  Conversions  result  in  a 
value  from  +/-  1.00  and  therefore  need  multiplied  by  5  volts  to  give 
volts.  The  number  of  samples  summed  is  the  count  in  the  record  header. 
Therefore  each  number  needs  multiplied  by  5  and  divided  by  the  count  to 
give  average  volts.  This  is  done  automaticly  by  the  reader  unless  the 
average  flag  is  set  on  the  reader. 

The  analog  data  contains  the  number  of  channels  as  given  in  analog 
channels  in  the  file  header.  Each  channel  consists  of  4  bytes  which  is  a 
floating  point  number  converted  by  the  reader  to  ascii  decimal  numbers. 

3.  The  next  series  of  bytes  contain  the  digital  channels.  Each  channel  is  a 
2  byte  integer  containing  the  number  of  times  the  channel  was  on  out  of 
the  number  of  counts  in  the  total  number  of  samples  given  in  the  record 
header . 

4.  The  next  series  of  bytes  is  the  pulse  data.  The  first  2  bytes  is  the 
number  of  seconds  the  pulse  data  was  taken  over.  This  may  vary  from  the 
number  of  counts  in  the  record  header.  The  pulse  readings  follow  with  a 
4  byte  long  integer  each. 

The  next  record  follows  immediately  after  the  first.  All  data  is  pushed  up  in 
memory  to  make  room  for  the  next  data  item  keeping  the  most  current  data  at 
the  beginning  of  the  memory. 
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2.   DATA  CASSETTE  TAPE  READEH 

The  reader  is  programmed  to  be  a  general  reader  that  can  transmit  data  to  any 
device  using  HS232C  data  transfer.  The  data  is  converted  to  ascii  character 
data  before  transmission  so  it  is  reasonable  to  use  a  printer  to  get  a  prin- 
tout of  the  data  directly.  The  options  that  can  be  programmed  are  as  follows: 

1.  Delay  between  the  transmission  of  characters.  This  is  a  binary  number 
which  represents  a  multiple  of  4  milliseconds  to  delay  between  character 
transmission. 

2.  Delay  between  the  transmission  of  each  line.  Also  a  multiple  of  4  mil- 
liseconds to  delay  after  a  "CR"  Is  sent. 

3.  Prompt  waiting.  If  this  byte  is  nonzero,  this  is  a  prompt  character  the 
SYM-1  will  wait  for  before  sending  the  next  line.  Any  Line  delay  is 
inserted  after  the  prompt  character  is  received. 

4.  Linefeed  and  all  data  flag.  If  bit  7  is  set  ($80),  a  linefeed  character 
will  be  sent  after  a  "CR".  If  bit  6  is  set  ($40),  then  all  file  data 
will  be  sent  and  not  just  the  nonrepeated  data. 

5.  Sync  and  average  flag.  If  bit  7  is  set  ($80),  the  STM-1  will  await  a 
character  before  proceeding  with  the  transmission  of  the  file.  This  will 
allow  a  microcomputer  to  3ave  the  last  file  before  the  next  one  is  sent. 
In  this  mode  the  STM-1  reads  a  file  and  then  sends  a  "CR"  at  1-second 
intervals.  When  a  character  is  received,  the  SIM  delays  .5  seconds  and 
then  sends  the  file  with  any  other  protocall  discussed  above.  The 
receiving  microcomputer  should  await  the  reception  of  a  "CR"  and  then 
send  a  character  to  the  SYH-1  indicating  that  it  is  ready  to  receive 
data.  If  bit  6  is  set  ($40),  then  the  analog  data  will  not  be  averaged 
before  it  is  printed.  Averaging  multiplies  by  5  and  divides  by  the  count 
to  give  the  output  average  in  volts. 

6.  Baud  rate.  The  baud  rate  may  be  set  to  any  value  that  the  SYM-1  is  capa- 
ble of  (110  to  4800).  This  is  a  coded  number  that  can  be  found  in  the 
STM  REFRENCE  MANUAL  Page  4-23. 

2.1   DSIHG  THE  READER 

2.1.1   Program  execution 

DO   (DO  is  the  shifted  character  on  the  0  key.  Press  <shift>  <0>).  This  com- 
mand starts  the  reader  program  in  the  data  logger  format  mode. 

01   This  entry  to  the  program  does  a  hexadecimal  dump  of  data  on  the  tape. 
The  data  is  in  lines  of  16  hex  numbers  exactly  as  on  tape  without  any 
predefined  format  of  the  data. 

D2  This  entry  is  an  end  of  data  send.  It  may  be  used  from  the  reader  as  a 
signal  that  the  tape  ha3  ended.  The  output  from  this  command  is  simply: 
EOT 

END 
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2.1.2  Table  selection.  The  above  commands  can  be  entered  with  or  without  a 
table  number  to  define  the  parameters  to  be  used.  Without  a  table  number 
entered  (DO  <cr>),  the  reader  will  prompt  for  a  table  number  with  'table'  on 
the  L.E.D.  To  enter  a  table  number  with  the  command  enter  "U0  n  <cr>". 

The  tables  entered  are  as  follows: 

0  This  is  the  user  entered  values  located  at  $100  in  memory.  This  is  for 
custom  parameters  and  are  to  be  entered  as  6  bytes  described  above  at 
$100.  Once  entered,  "tJx  0"  will  use  these  values  for  setup. 

1  Values  are:  chardel=0,  linedel=0,  prompt=$11,  linefeed=0,  sync=0, 
baud=$01  (4800  baud).  These  are  values  used  for  the  UNIX  system  and  will 
also  work  for  IBM/370  CMS. 

2  Values  are:  chardel=6,  linedel=5,  prompt=0,  linefeed=0,  sync=$80, 
baud=$01  (4800  baud).  These  values  will  work  for  a  small  applesoft  pro- 
gram on  the  apple. 

3  These  values  are  the  same  as  2  except  with  linedel=$10.  This  is  for 
applesoft  programs  that  need  longer  delays  between  lines. 

4  These  values  are  the  same  as  2  except  with  linedel=$38.  This  is  for 
applesoft  programs  that  need  even  longer  delays  between  lines. 

5  Values  are:  chardel=16,  llnedel=16,  prompt=0,  linefeed=0,  sync=$80, 
bard=$01  (4800  baud).  These  values  will  work  on  the  Radio  Shack  TRS-80. 

There  is  room  for  5  additional  tables  in  the  eprom  that  can  be  custom  pro- 
grammed. They  are  currently  the  same  as  table  0. 
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Specifications 

Parts  List 

SYM-1  Modifications 

A/D  Board  I/O  connections 

Schniatics 
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SPECIFICATIONS  AND  FEATURES 
Analog  Input  Channels 

-  16  single-ended  or  8  true  differential  inputs  expandable  to  32  single- 
ended  or  16  true  differential  by  adding  two  additional  multiplexers  and 
connectors. 

-  12-bit  resolution 

-  Autoranging  Programmable  gain  amplifier  providing  11  gain  levels  from  1 
to  1024  (Powers  of  2). 

-  Input  Voltage  range  ±5V  for  gains 1,  ±5mV  for  gain=1024. 

-  Each  channel  sampled  once  per  second.  Channel  conversion  time  is  275 
microsecond 

-  Sample  averaging  time  interval  switch  selectable  from  1  second  to  3 
hours . 

-  Accuracy  .075$  FSR,  Temperature  range  0  to  70°C. 

Digital  Inputs 

-  8  digital  input  channels 

-  each  input  channel  is  sampled  every  second  and  summed  into  a  counter 

Pulse  Inputs 

-  2  pulse/event  counting  channels 

-  up  to  65K  Hz  input  frequency 

-  responds  to  1M  Hz  burst 

-  Inputs  must  be  debounced  to  be  useable  on  switches 
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Parts  list  for  Data  Aquizition  System  3 


Quanity 

Item 

Cost 

Vender 

mEML. 

1 

Case 

55 

Jensen  Tools 

1 

SYM-1 

210 

AB  Computers 

1 

Power  Supply  HTAA-16W 

50 

Power-one  Inc. 

1 

Cassette  Recorder  CTR-80A 
SYM-1  EXPANSION 

50 

Radio  Shack 

2 

2114  Ram  Chips 

12 

AB  Computers 

1 

6522  VIA 

6 

AB  Computers 

2 

2716  Eproms 

18 

AB  Computers 

2 

Miniature  Plugs 

3 

Radio  Shack  or  Newerk 

1 

Subminiature  Plug 

1 

Radio  Shack  or  Newerk 

18 

WW  Pins 

CLOCK  BOARD 

.18 

Newerk 

1 

Battery  holder  for  2  AA  cells 

3 

Newerk 

2 

AA  Batteries 

.5 

Newerk 

1 

NC  momentary  SP  switch 

1 

Newerk 

1 

on  -  on  SPDT  switch 

2 

Newerk 

1 

MSM5832RS  Clock  Chip 

7.5 

Concord  Computer 

1 

CX-1V-32.768  kHz  Crystal 

2.5 

Concord  or  Staltek 

1 

MC14011B  Quad  NAND 

1 

Newerk 

1 

MC14047BE  Timer 

1 

Newerk 

2 

.1  uF  Capicator  (cer) 

.8 

Newerk 

2 

4.7  uF  Capioators  (tant) 

1 

Newerk 

2 

15  pF  Capicator  (cer) 

.8 

Newerk 

4 

Diodes  4001  ? 

1.5 

Newerk 

2 

1M  Resistor 

.2 

Newerk 

4 

2.2K  Resistor 

.8 

Newerk 

2 

16  pin  headers 

1 

LC0MP 

2 

16  pin  sockets 

1.5 

LCOMP 

2 

14  pin  sockets 

1.5 

LC0MP 

1 

18  pin  socket 

1 

LCOMP 

1 

44  pin  WW  edge  connector 

6 

Newerk 

1 

4.5"  X  2.5"  PC  Board 

1 

Newerk 

7 

WW  pins 

A/D.  BOARD 

.07 

Newerk 

1 

SDM856JG  data  aquiz  sys 

175 

Burr  Brown  (Midteo) 

1 

3606AG  PGIA 

95 

Burr  Brown  (Midtec) 

1 

MC14028 

1.2 

Newerk 

1 

MC14049 

1.2 

Newerk 

1 

MC14174 

1.2 

Newerk 

1 

8  spst  DIP  switchs 

4 

Newerk 

3 

.01  uF  Capicator  (cer) 

1.5 

Newerk 

3 

1  uF  Capicator  (tant) 

2 

Newerk 

1 

1M  Resistor 

.2 

Newerk 

1 

3900  pF  Capicator  (cer) 

.5 

Newerk 

1 

100K  potentiometer 

1 

Newerk 
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10K  potentiometer 

1 

Newerk 

1 

100  Ohm  potentiometer 

1 

Newerk 

1 

50  Ohm  potentiometer 

1 

Newerk 

4 

16  pin  headers 

2 

LCOMP 

6 

16  pin  sockets 

4.4 

LCOMP 

6 

25  pin  socket  strips 

8.4 

LCOMP 

1 

8.5"  X  4.5"  PC  Board 

2.5 

Newerk 

6 

.75"  Pexiglas,  vood,  or  Spacers 

4 

8  connector  Terminal  Blocks 

TEMPERATURE  SENSOR  REFRENCE 

12 

Newerk 

TL062  dual  op  amp 

1.2 

Newerk 

8  pin  socket 

.7 

LCOMP 

16  pin  Socket 

.7 

LCOMP 

1K  Potentiometer 

1.2 

Newerk 

5K  Potentiometer 

1.2 

Newerk 

47. 5K  Precision  Resistor 

.2 

Newerk 

2 

8.66K  Precision  Resistor 
1&  CHANNEL  EXPANSION 

.2 

Newerk 

2 

MPC8S  8  Channel  Mux 

30 

Burr  Brown 

(Midtec) 

2 

16  pin  sockets 

1.4 

LCOMP 

2 

8  connector  terminal  blocks 
MISC 

6 

Newerk 

8" 

4  Strand  wire  for  PS 

15" 

6  Strand  wire  for  Cassette 

WW  wire 

Mounting  board  for  Sym  and  Cassette 

1 

Input  Wire  Clamp 

52 
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MODIFICATIONS  ON  SIM  1  BOARD 

1 .  RJSSEC  jIBMEEB.:  This  Jumper  is  to  allow  reset  of  the  sym  1  via  an  external 
clock  circuit.  The  solder  connection  between  pin  3  and  pin  4  of  "U3" 
must  be  cut.  These  are  inputs  to  a  74LS27  NOR  gate.  A  wire  is  to  sol- 
dered to  pin  3  of  this  chip  and  ran  to  point  "41"  of  sym  1  board.  This 
point  is  internally  tied  to  "K"  of  the  edge  connector  "A". 

2.  15.  2QLX  22XE&  JUMEEB.  This  jumper  supplies  +15  volts  to  the  clock  circuit. 
Solder  in  a  wire  wrap  post  to  pin  3  of  connector  "K",  and  another  post  to 
point  n23n  of  sym  1  board  (  N  of  edge  connector  A).  Wire  wrap  these  two 
posts  together. 

3.  DEBUG  OFF  .TIIMPER  This  Jumper  disables  the  debug  function  of  the  sym  1. 
Solder  in  wire  wrap  posts  at  pin  5  of  connector  "K"  (ground)  and  to  point 
"25"  (input  to  NAND  gate  08  pin  4). 

4.  SESKL  JffiCJflR.  These  connectors  allow  sym  1  to  be  initialized  and  controled 
by  user's  EPROM  upon  power  up.  Point  "19"  is  wire  wrapped  to  point  "N"  . 
Point  "20"  is  wire  wrapped  to  point  "P"  .  The  wire  wrap  posts  must  be 
inserted  and  soldered. 

5.  INTEROPT  CONNECTOR  JUMPER  This  jumper  allows  an  interupt  to  be  sent  in 
from  clock  circuit  via  a  data  line.  A  wire  is  to  be  soldered  from  pin  7 
of  "U25"  (a  6522)  to  pin  18  of  that  same  chip.  These  are  pins  PA5  AND 
CB1  respectively. 

6 .  TRANSISTOR  £UJ£F_Efi.  BYPASS  The  output  buffer  transistors  on  PB4-PB7  must  be 
bypassed  if  they  are  to  be  used  as  input  ports.  The  transistors  can  be 
easily  by-passed  if  a  wired  connections  are  made  form  points  "B4"  to 
"R9";  "B5"  to  "RIO";  "B6"  to  "R11";  and  "B7"  to  "R12". 

7.  CDT  WPM  JDMPER  A  the  small  wire  jumper  between  points  "45"  and  "MM"  must 
be  cut. 
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Analog  Input  Connections 
Primary  Channels  on  SDM856 
Chip       Pin       Channel 


01 

11 

SE0/DIFF0H 

01 

70 

SE8/DIFF0L 

01 

10 

SE1/DIFF1H 

01 

71 

SE8/DIFF1L 

01 

9 

SE2/DIFF2H 

01 

72 

SE10/DIFF2L 

01 

8 

SE3/DIFF3H 

01 

73 

SE1 1/DIFF3L 

01 

7 

SE1(/DIFF4H 

01 

74 

SE1 2/DIFF4L 

01 

6 

SE5/DIFF5H 

01 

75 

SE13/DIFF5L 

01 

5 

SE6/DIFF6H 

01 

76 

SE14/DIFF6L 

01 

4 

SE7/DIFF7H 

01 

77 

SE1 5/DIFF7L 

ixpansi 

on  Channels 

on  2  MCP8S's 

:hip 

Pin 

Channel 

U7 

4 

SE16/DIFF8H 

U8 

4 

SE24/DIFF8L 

U7 

5 

SE17/DIFF9H 

U8 

5 

SE25/DIFF9L 

U7 

6 

SE18/DIFF10H 

U8 

6 

SE26/DIFF10L 

U7 

7 

SE19/DIFF11H 

U8 

7 

SE27/DIFF11L 

U7 

12 

SE20/DIFF12H 

U8 

12 

SE28/DIFF12L 

U7 

11 

SE21/DIFF13H 

U8 

11 

SE29/DIFF13L 

U7 

10 

SE22/DIFF14H 

U8 

10 

SE30/DIFF14L 

UY 

9 

SE23/DIFF15H 

U8 

9 

SE31/DIFF15L 
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Digital  and  Pulse  Channel  Connections 


STO-1 

AA  Connector 

Name 

Pin 

Channel 

3PB0 

16 

DIGITALO 

3PB1 

T 

DIGITAL 1 

3PB2 

15 

DIGIT AL2 

3PB3 

S 

DIGITAL3 

3PBH 

Y 

DIGITAL!) 

3PB5 

21 

DIGITALS 

2PB7 

6 

DIGIT AL6 

3PB7 

22 

DIGITAL7 

2PB6 

H 

PULSEO 

3PB6 

Z 

PULSE1 

Switch  Connections 

One  side  of  each  switch  is  tied  to  DGND 


SYM-1 

AA  Connector 

Name 

Pin 

Channel 

3PA0 

V 

SW1 

3PA1 

W 

SW2 

3PA2 

X 

SW3 

3PA3 

18 

swu 

3PA1 

19 

SW5 

3PA5 

20 

SW6 

3PA6 

17 

SW7 

3PA7 

D 

SW8 

56 


HBJUI0/8I3S 

S 

-H±nOA23S 

O 

HBina/ii3s 

8 

TBdJia/SJS 

© 

HOUJIO/812; 

s 

Xtifl(VB23S 

© 

H1IJJI0/B13S 

s 

-|IIAfl(V£OS 

SI 

oe  i"*ie 

© 

»e  i»u»ts 

5. 

g 

iciiiia/reas 

® 

« 

-E1JJI0/823S 

® 

HEI4JI0/IZ3S 

® 

1EIina/823E 

® 

WTJJI0/ZZ3S 

® 

■»ij4ia/oos 

s 

ifiijjin/cas 

0 

■BIJJI0/IE3S 

® 

96  Itu«IS 

© 

oe  i«u«ts 

® 

HOina/05 

(S 

■KUJI0/S3E 

© 

HIJJII1/I3E 

® 

ii±na/B3s 

® 

hejjia/s3s 

© 

•Eiim/in36 

© 

Hujia/as 

© 

xina/iias 

© 

oe  i«*ie 

© 

0N9  I«U«IS 

©j 

WAJI0A3S 

© 

■»JJI0/313S 

S 

HSJJI1VS3S 

® 

TLUHVEJ3S 

© 

HBAflO/83S 

® 

TBAfl(l/>I3S 

® 

HUJIO/OS 

5 

liifia/sijs 

® 

do  t«u«is 

S 

oe  i»*is 

® 

i 
a 


am 

© 

«T- 

© 

A61- 

® 

(W3Y 

® 

Mm 

® 

ASH 

® 

(WO 

© 

Hr> 

© 

A<* 

© 

i»W> 

© 

01TU9IO 

s 

nvusio 

© 

eiYiisia 

© 

ETYU9I0 

© 

fmaio 

© 

ST»lI9ia 

© 

BTY1ISI0 

© 

tTVUSIO 

© 

03STH 

© 

I35Xd 

® 

ro 
o 
CD 


tfl 

□ 


t 

1 

1 

E 

/ 

9 

3 

jg 

5 

V 

V 

"* 

~* 

_t 

«* 

* 

E? 

' 

37 


-,8 


-T 

~-n 

tn 

en 

c 

o 

■a 

•r-t 

c_ 

tn 

to 

t_ 

O 

a) 

m 

> 

u. 

t_ 

a 

(U 

o 

Ol 

u 

en 
o 

_l 

AH311V9  VV 

to 

CJ 

ra 
+j 

in 

5: 

□ 

AH3UVB  VV 

n— 

3E 

, 

O    O 



u 

■ZL    -ZL 

— 

1  1  1 

ac 

O 

f— 

UJ 

o 

H31IMS 
IQdS 

CD 

1— 
UJ 

2ES9HSW    ;n 

\  \ 

^n  o 

o  □_ 

CD     X 

\\ 

■< 

\  \ 

_J     O 

\  \ 

CJ    CJ 

[ 

VA 

/ 

3: 
>- 

en 

not-    en 

CO 

f— 

Z 

UJ 

-z. 

£X     O 

UJ    Q. 

z  z 

n    o 

59 


G?  Xj 


.    <D 

en     . 


HI-T+ 


Si 

HDH 


a    fc 


SSSS    S3: 


<3 

en 


-tH 


JH 


I H' 


as 
a* 


Hi. 


ft 
-wv- 


0\MI 

irdl 

nvdi 


MI 

Btdt 


T 

"^ 

T 

CD 

c 

o 

Tl 

•f-1 

C 

<n 

ro 

t. 

o 

01 

ID 

> 

V 

c_ 

o 

0) 

o 

CJI 

r-l 

m 

(1 

n 

_1 

UJ 

+j 

(  1 

03 

^ 

Q 

60 
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0001 
0002 
0003 

0005 

0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0025 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 


jPUT  "L3LG.C" 
.LS 

SYM-1  DATA  LOGGER  3-0  EXCEPT  FP  ROUTINES 

APRIL  1981 

BY  MICHAEL  D.  SCHWARZ 

AG  EHGG  EXTENSION 
KANSAS  STATE  UNIVERSITY 

VERSION  3.1 

JULY  16,1981 

REMOVED  AVERAGING  OF  ANALOG  INFORMATION  TO  BE  DONE 

IN  THE  READER  PROGRAM.  RESTRUCTURING.  ETC. 

VERSION  3.2 

OCTOBER  21,1981 

CORRECTED  CURVAL  CALC  ERROR 

CHANGED  TO   1    HR  SAVE  DEFAULT 

CORRECTED  ANALOG   PROBLEM  WITH  ZERO 

SPLIT  DISVEL  FOR  FIXED  AND   CYCLING 

REWROTE  MOVE  ROUTINE  FOR   INCREASED  SPEED 

.CE 

.CT 
.OS 
.ES 

.PR  "ASSEMBLY  OF  LOGGING  ROUTINES" 
.PR  "PUT  FPDISK  IN  DRIVE  2" 
.PR  "FIRST  EPROM  IS  STORED  AT  $800" 
.PR  "SECOND  EPROM  IS  STORED  AT  $1000" 


AVGANALOG 
LOWMEM 


.DE  0 
.DE  $200 

.FI  "SYM.L" 


;0  FOR  NO  AVG  1  FOR  AVG 


0289  3485-370E  SYM.L 


0001 
0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 


;PUT  "SYM.L" 
;MONITOR  ADDRESSES 


ACCESS 

BLKMOV 

CONFIG 

FILL3 

INBYTE 

INCHR 

KSCONF 

L2 

MONITOR 

NACCESS 

OUTBYT 

OUTCHR 

OUTNIB 

OUTXAH 

PARM 

RES  ALL 

RESTART 

SAVE2 

SAVER 

SCAND 

SPACE 

VECSW 

DISBUF 

GOVEC 

ID 


.DE  $8B86 

.DE  II8740 

.DE  ii89A5 

.DE  ::8718 

.DE  :;81D9 

.DE  :;8A1B 

.DE  :89A3 

.DE  ::84D3 

.DE  ::8003 

.DE  ::8B9C 

.DE  :;82FA 

.DE  ::8A47 

.DE  |A44 

.DE  :;82F4 

.DE  ::8220 

.DE  :;81C4 

.DE  :i8000 

.DE  ::87EA 

.DE  :;8188 

.DE  ::8906 

.DE  ::8342 

.DE  $8BB7 

.DE  $A640 
.DE  $A659 
.DE  $A64E 
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0031  INTVEC 

0032  PARN 

0033  PARNR 
003*  RMDIG 

0035  SDBYT 

0036  TAPDEL 


003' 
0031 
0039 
0040 
0041 
0012 
0040 


.DE  4A678 
.DE  IIA64A 
.DE  ::A649 
.DE  HA645 
.DE  !IA651 
.DE  $A630 


VIA1 
VIA2 
VIA3 

;P0T  "SYM.L" 


.FI  "L3FP.L" 


013A  3485-35BF  L3FP.L 


0001 
0002 
0003 
0005 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 

0014 
0015 
0016 
0041 


;P0T  "L3FP.L" 


FPBASE 

CLRMEM 

MOVIND 

INCMEM 

DECMEM 

FPNORM 

FPADD 

FPSUB 

FPMOLT 

FPDIV 

FPOOT 

FPDISP 


.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
.DE 
.DE 


;PUT  "L3FP.L" 
.FI 


$CC00 

FPBASE+4000 

FPBASE+nOOA 

FPBASE+:;015 

FPBASE+:;01E 

FPBASE+!!071 

FPBASE+:;0B1 

FPBASE+:i11C 

FPBASE+II126 

FPBASE+MCQ 

FPBASE+i;2B8 

FPBASE+J38F 


"L3MACROS.M" 


015F  3485-35E4  L3MACROS.M 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0042 
0043 
0044 


03BA  35E4-399E  L3ZPVARS.B 


;PUT  "L3MACROS.M" 

;MACROS  FOR  16BIT  MANIPULATIONS 

IIILDZI 


!!!LDZZ 


!!!INCD 


.MG 

.MD 

(.. 

.A  .. 

.B) 

LDA 

«,, 

...B 

STA 

».: 

.A 

LDA 

#H, 

...B 

STA 

«. ' 

.A+1 

.ME 

.MD 

i:: 

.A  .. 

•  B) 

LDA 

.B 

STA 

». . 

.A 

LDA 

»l  1 

.B+1 

STA 

•  1  1 

.A+1 

.ME 

.MD 

(.. 

.A  .. 

B) 

CLC 

LDA 

#.. 

•B 

ADC 

•  #- 

.A 

STA 

•  II 

.A 

BCC 

=+3 

INC 

»,, 

.A+1 

.ME 

ROS. 

M" 

.BA 

$00 

.FI 

"L3ZPVAR£ 

.B" 

0001  ;PDT  "L3ZPVARS.B" 

0002 

0003  ;ZER0  PAGE  VARIABLES 
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0004 

Logger  Source 

0005  ; VARIABLES  INITIALIZED  BY  INITIAL 

0006 

0000- 

0007  VERIFY 

0008  MEMEND 

.DS  2 

0002- 

.DS  2 

0004- 

0009  DATAEND 

.DS  2 

0006- 

0010  DATASTART   .DS  2 

0008- 

0011  DISVEL 
0012 

.DS  2 

0014 

JNINITIALIZED  VARIABLES 

0015  L 

0016  SWITCH 

HEADER  INFO 

000A- 

.DS  1 

OOOB- 

0017  ADCHAN 

0018  DGCHAN 

.DS  1 

OOOC- 

.DS  1 

OOOD- 

0019  PLCHAN 

.DS  1 

OOOE- 

0020  SMPTIME 

.DS  1 

OOOF- 

0021  AVGTIME 

.DS  1 

0010- 

0022  SAVTIME 

.DS  1 

0023  ; 

0024  ADADDR 

ADDRESSES  AND  POINTERS 

0011- 

.DS  2 

0013- 

0025  DGADDR 

.DS  2 

0015- 

0026  JMPVEC 

.DS  2 

0017- 

0027  PLAEDR 

0028  WORKPNT 

.DS  2 

0019- 

.DS  2 

0029  ; 

0030  CYCLE 

SHOW  VARIABLES 

001B- 

.DS  1 

001C- 

0031  DISCNT 

.DS  2 

001E- 

0032  KEYCNT 

.DS  1 

001F- 

0033  LCNT1 

0034  LCNT2 

.DS  1 

0020- 

.DS  1 

0025  ; 

0036  CORVAL 

INTERRUPT  VARS 

0021- 

•  DS  1 

0022- 

0037  DAY 

0038  ; 

.DS  6 

DATA  HANDLING  VARS 

0039 

0040  DIVTMP 

IFN  AVGANALOG 

.DS  4 

0041 

II* 

0028- 

0042  LABEL 

.DS  1 

0029- 
002B- 

0043  LENGTH 

0044  NUMREC 

.DS  2 

.DS  1 

0045  : 

0046  PLTMP 

PULSE  VARABLES 

002C- 

.DS  1 

002D- 

0047  PLLSTSEC   .DS  1 

0048  PLINCSEC   .DS  1 

002E- 

002F- 

0049  PLSEC 

•  DS  4 

0033- 

0050  PLMIN 

.DS  4 

0037- 

0051  PLSUM 

.DS  4 

0052  ; 

0053  DGBYTE 

0054  : 

0055  ADERR 

DIGITAL  CHANNEL  VARIABLES 

003B- 

.DS  1 

ANALOG/DIGITAL  CONVERTER  VARS 

003C- 

.DS  1 

003E- 

0056  CHANN 

.DS  1 

003E- 

0057  HEXAD 

0058  GAIN 
0059 

0060  ;P0T  "L- 

.DS  2 

0040- 

.DS  64              ;(#  OF  CHANNELS) 

IZPVARS.B" 

0045 

.BA  $B8 

0046 

.FI  D26  "FPVARS.B" 

02BD  35E4-38A1 

FPVARS.B 

0001  ;POT  "FPVARS.B" 

0002 

0003  ; VARIABLES  FOR  MATH  ROUTINES 

00B8- 

UUU4 

0005  FMPNT 

.DS  2 

OOBA- 

0006  TOPNT 

.DS  2 

OOBC- 

0007  CNTR 

0008  TSIGN 

.DS  1 

OOBD- 

.DS  1 

OOBE- 

0009  SIGNS 

.DS  1 

OOBF- 

0010  FPLSWE 

.DS  1 

63 
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ooco- 

00C1- 
00C2- 
00C3- 
00C4- 
00C5- 
00C6- 
00C7- 
00C8- 
00C9- 
00CA- 
00CB- 
00CC- 
OOCD- 
0OCE- 
0OCF- 
OODO- 
OOD1- 
00D2- 
OOD3- 

00D4- 
00D5- 
OOD6- 
OOD7- 
00D8- 
00D9- 
OODA- 
OODB- 
OODC- 
OODD- 
OODE- 
OODF- 
0OEO- 
OOE1- 
OOE2- 
00E3- 
00E4- 
00E5- 


0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0047 
0048 
0049 
0050 


FPLSW  .DS  1 

FPNSW  .DS  1 

FPMSW  .DS  1 

FPACCE  .DS  1 

MCANDO  .DS  1 

MCAND1  .DS  1 

MCAND2  .DS  1 

FOLSWE  .DS  1 

FOPLSW  .DS  1 

FOPNSW  .DS  1 

FOPMSW  .DS  1 

FOPEXP  .DS  1 

WORKO  .DS  1 

W0RK1  .DS  1 

W0RK2  .DS  1 

W0RK3  .DS  1 

W0RK4  .DS  1 

W0RK5  .DS  1 

W0RK6  .DS  1 

W0RK7  .DS  1 

;      VARIABLES  FOR  I/O  ROUTINES 

INMTAS  .DS  1 

INEXPS  .DS  1 

INPRDI  .DS  1 

IOLSW  .DS  1 

IONSW  .DS  1 

IOMSW  .DS  1 

IOEXP  .DS  1 

IOSTR  .DS  1 

I0STR1  .DS  1 

I0STR2  .DS  1 

I0STR3  .DS  1 

IOEXPD  .DS  1 

TPLSW  .DS  1 

TPNSW  .DS  1 

TPMSW  .DS  1 

TPEXP  .DS  1 

TEMPI  .DS  1 

OUTBUF  .DS  16 

;PDT  "FPVARS.B" 


.BA  tCOOO 

.MC  *800 

.FT  "L3MAIN.S" 


; FIRST  EPROM 


05B6  35E4-3B9A  L3MAIN.S 


COOO-  20  85  C1 
C003-  A9  00 
'  20  C8 


COO 

COOi 

COOA 

COOD 

COOF 

C012 


IS 


C6 


J9 

8D 

8D 

20 
C015-  58 
C016-  20  CF  C2 


3 

l9o 


A6 

A6 
C5 


C019-  48 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 


;PDT  "L3MAIN.S" 

;MAIM:      CALLS   INIT,    SETS  UP  THE  ADC,    SETS  THE 
; INTERRUPT  VECTOR,    STARTS   INTERRUPTS,    AND  CALLS 
;SH0W.      LEAVES   A  RETURN  ADDRESS  ON  STACK  FOR  SHOW. 

MAIN 


JSR   INIT 

LDA  #0 

JSR   INPA/DV 

LDA  #L,INTERRUPT 

STA   INTVEC 

LDA  #H,INTERRUPT 

STA   INTVEC+1 

JSR  SETUPCLOCK 

CLI 

JSR  SHOW 


; INITIAL  DATA  IF  NECESSARY 

; INITIALIZE  ADC 

; STORE  INTERUPT  VECTOR 


;N0  RETURN  FROM  THIS   SUBRO 


;THIS   ROUTINE  SERVICES   THE  CLOCK  INTERRUPTS. 
;IT  CALLS  SAMPLE,    AVERAGE,    AND  STORE  AT  THE 
; PROPER   TIMES 

INTERRUPT 

PHA 
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C01A-  8A 

0025 

TXA 

C01B-  48 

0026 

PHA 

C01C-  98 
C01D-  48 

0027 
0028 

TYA 

PHA 

0029 

C01E-  AD 

00 

AO 

0030 

LDA  VIA1 

C021-  09 

20 

0031 

ORA  #$20 

C023-  8D 
C026-  AD 

00 

AO 

0032 

STA  VIA1 

02 

AO 

0033 
0034 

LDA  VIA 1+2 

C029-  09 

20 

ORA  #$20 

C02B-  8D 

02 

AO 

0035 

STA  VIA1+2 

C02E-  A9 

00 

0036 

LDA  #0 

C030-  8D 

03 

AC 

0037 
0038 
0039 

STA  VIA3+3 

C033-  20 

8B  CO 

JSR  EVERYSEC 

0040 

C036-  A2 

03 

0041 

LDX  #3 

C038-  CA 

0042 

DEX 

C039-  B5 
C03B-  DO 

25 
04 

0043 
0044 

LDA  «DAY+3,X 
BNE  =+5 

C03D-  EO 

00 

0045 

CPX  #0 

C03F-  DO  F7 

0046 

BNE  =-8 

C041-  86 

21 

0047 
0048 

STX  «CURVAL 

C043-  BC 
C046-  A2 

23 

C9 

0049 

LDY  L0GTAB2.X 

05 

0050 

LDX  #5 

C048-  F8 

0051 

0052  SLOGAA 

SED 

C049-  D9 

14 

C9 

0053 
0054 

CMP  LOGSM.Y 

C04C-  90 

05 

BCC  SLOGBB 

C04E-  F9 

14 

C9 

0055 

SBC  LOGSM.Y 

C051-  FO 

04 

0056 

0057  gLOGBB 

0058 

BEQ  gLOGCC 

C053-  88 
C054-  CA 

DEY 

0059 

DEX 

C055-  DO 

F2 

0060 

0061  SLOGCC 

BNE  §LOGAA 

C057-  8A 
C058-  D8 

0062 

TXA 

006  3 
0064 

CLD 

C059-  A6 

21 

LDX  «CURVAL 

0065 

C05B-  18 

0066 

CLC 

C05C-  7D 
C05F-  85 

20 

C9 

0067 
0068 

ADC  L0GTAB1.X 

21 

STA  *CDRVAL 

0069 

C061-  C5 

OE 

0070 

CMP  •SMPTIME 

C063-  90 

18 

0071 

BCC  ENDINT 

C065-  20 
C068-  A5 

95 

CO 

0072 

JSR  SAMPLE 

21 

0073 
0074 

LDA  *C0RVAL 

C06A-  C5 

OF 

CMP  »AVGTIME 

C06C-  90 

OF 

0075 

BCC  ENDINT 

C06E-  20 

AC 

CO 

0076 

JSR  AVERAGE 

C071-  A5 

21 

0077 
0078 

LDA  «CURVAL 

C073-  C5 

10 

CMP  *SAVTIME 

C075-  90 

S3 

0079 
0080 

BCC  =+4 

C077-  20 
C07A-  20 

CO 

JSR  SAVE 

B7 

CO 

0081 

JSR  MOVE 

0082  ENDINT 

C07D-  AD 
C080-  29 

00 

AO 

0083 
0084 

LDA  VIA1 

DF 

AND  #$DF 
STA  VIA1 

C082-  8D 

00 

AO 

0085 

0086 

C085-  68 

OO87 
0088 

PLA 

C086-  A8 

TAY 

C087-  68 
C088-  AA 

0089 

PLA 

0090 

TAX 

C089-  68 

0091 

PLA 

C08A-  40 

0092 

RTI 

65 


;SET  BIT  TO  INDICATE  DJTR 

;SET  AS  OUTPUT 

;DEFETE  NACCESS  &  ACCESS 

;READCL0CK  AND  OTHERS 

; SECONDS  TO  HOURS 

;TIME  BYTE 
; NONZERO  TIME 
;LAST  COMPARE 
;TRY  NEXT  TIME  BYTE 

;TMP 

; POSSIBLE  LOGS  RETURNED 


;L0AD  SAVED  X 


;LOG  OF  TIME 


;CLR  BIT  FOR  LEAVING  INTR 


009; 
0095 
0051 


;PUT  "L3MAIN.Sn 

.FI  "L3FILE.S" 
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0B1E  35E4- 

4102  L3FILE.S 

0001 

[PUT 

"L3FILE.S" 

0002 

0003 
0005 

[INIT 

STOREAGE  (IN  ORDER) 

j 

•DATAEND        2 

0005 

i 

•DATASTART      2 

0006 

•MOVETO         2 

0007 
0008 

[INTERFACE  ROUTINES  CALLED 

FROM  THE  INTERRUPT 

0009 

[ROUTINE.   ANY  ROUTINE  TO  . 

BE  CALLED  AT  THE  APPROPIATE 

0010 
0011 
0012 

[TIME 

SHOULD  BE  HERE. 

EVERYSEC 

C08B-  20  29 

C5 

0013 

0014 

JSR  READCLOCK 

[GET  CURRENT  TIME 

C08E-  20  00 

C8 

JSR  PLSAVE 

[READ  AND  SAVE  PULSE  INPUT 

C091-  20  67  C7 
C094-  60 

0015 
0016 

JSR  DGREAD 
RTS 

[READ  DIGITAL  BITS 

0017 
0018 
0019 

SAMPLE 

C095-  AO  OE 
C097-  18 
C098-  B1  06 

LDY  #HEADER+6 
CLC 

[INCREMENT  SAMPLE  COUNT 

0020 

LDA  (DATASTART) 

,1 

C09A-  69  01 

0021 

ADC  #$01 

C09C-  91  06 
C09E-  C8 

0022 

0023 

0024 

STA  (DATASTART) 
INY 

■  Y 

C09F-  B1  06 

LDA  (DATASTART) 

,Y 

C0A1-  69  00 

0025 
0026 

ADC  #$00 

C0A3-  91  06 

STA  (DATASTART) 

,Y 

C0A5-  20  DF 

C6 

0027 
0028 
0029 

0030 

JSR  SUMADC 

[SUM  A/D  CHANNELS 

C0A8-  20  79 
COAB-  60 

C7 

JSR  DGSAVE 
RTS 

[SAVE  DG  INPUTS 

AVERAGE 

COAC-  20  66 

C1 

0031 
0032 
0033 
0034 
0035 

JSR  MOVECLOCK 
IFN  AVGANALOG 
JSR  AVGADC 

ttft 

[SAVE  TIME 

[AVERAGE  A/D  CHANNELS 

COAF-  60 

RTS 

0036 

SAVE 

COBO-  20  73 

C1 

0037 
0038 

JSR  MOVEHEADER 

[SAVE  HEADER  IN  DATA 

C0B3-  20  27 
C0B6-  60 

CI 

JSR  STORE 

0039 

RTS 

0040 

MOVE 

C0B7-  20  BE 

CO 

0041 

JSR  MOVEDATA 

COBA-  20  01 

C1 

0042 

JSR  CLRDATA 

COBD-  60 

0043 
0044 

RTS 

0045 

[MOVE 

DATA  UP  IN  STOREAGE  AREA 

SO  NEWEST 

0046 
0047 
0048  I 

[DATA 

IS  KEPT  AT  THE  BEGINNING 

UOVEDATA 

COBE-  38 

0049 

SEC 

COBF-  A5  02 

0050 

LDA  »MEMEND 

[SET  POINTERS  TO  END 

C0C1-  85  BA 

0051 

STA  *TOPNT 

C0C3-  E5  29 
C0C5-  85  B8 

0052 

SBC  'LENGTH 

[POINTER  TO  MOVE  FROM 

0053 
0054 

STA  »FMPNT 

C0C7-  A5  03 

LDA  «MEMEND+1 

C0C9-  85  BB 

0055 
0056 

STA  »T0PNT+1 

COCB-  E5  2A 

SBC  »LENGTH+1 

COCD-  85  B9 

0057 
0058 

STA  »FMPNT+1 

COCF-  38 
CODO-  A5  B8 

0059 
0060 

SEC 

LDA  »FMPNT 

[SUB  REMAINDER  OF  A  PAGE 

C0D2-  E5  06 

0061 

SBC  *DATASTART 

C0D4-  85  B8 
C0D6-  A8 

0062 
0063 
0064 

STA  »FMFNT 
TAY 

[TEMPORARY:  PARTIAL  PAGE 

C0D7-  BO  02 

BCS  =+3 

C0D9-  C6  B9 

0065 

DEC  *FMPNT+1 

CODB-  38 
CODC-  A5  BA 

0066 

SEC 

0067 
0068 

LDA  »TOPNT 

CODE-  E5  B8 

SBC  »FMPNT 

COEO-  85  BA 

0069 

STA  *TOPNT 

C0E2-  BO  02 

0070 

BCS  =+3 
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C0E4- 

C6 

BB 

0071 

DEC 

•T0PNT+1 

C0E6- 

A5 

06 

0072 

LDA 

•DATASTART 

C0E8- 

85 

B8 

0073 
0074 

STA 

•FMPNT 

; FINISHED  WITH  POINTEI 

COEA- 

4C 

EE 

CO 

JMP 

§M0VEDATA 

0075 

COED- 

88 

0076 
0077 
0078 

gMOVEDATA 

DEI 

COEE- 

B1 

B8 

LDA 

(FMPNT) ,Y 
TOPNT),Y 

[TRANSFER  A  PAGE 

COFO- 

91 

BA 

0079 
0080 

STA 

C0F2- 

CO 

00 

CPY 

#0 

C0F4- 

DO 

F7 

0081 

BNE 

gMOVEDATA-1 

COF6- 

C6 

B9 

0082 

DEC 

•FMPNT+1 

;NEXT  PAGE 

COF8- 

C6 

BB 

0083 
0084 

DEC 

•TOPNT+1 

COFA- 

A5 

B9 

LDA 

•FMPNT+1 

COFC- 

C5 

07 

0085 

CMP 

•DATASTART+1 

;END  OF  TRANSFER 

COFE- 

BO 

ED 

0086 

BCS 

gMOVEDATA-1 

C100- 

60 

0087 
0088 

RTS 

0089 

[CLEAR  THE 

:  data  ik;;/  :;j  ■■mv..' 

THE  DATA  IS  SUMMED 

0090 
0091 

CLRDATA 

C101- 

18 

0092 

CLC 

C102- 

A9 

08 

0093 
0094 

LDA 

#HEADER 

; START  OF  BUFFER 

C104- 

65 

06 

ADC 

•DATASTART 

C106- 

85 

BA 

0095 

STA 

•TOPNT 

C108- 

A9 

00 

0096 

LDA 

*0 

C10A- 

65 

07 

0097 
0098 

ADC 

•DATASTART+1 

C10C- 

I 

BB 

STA 

•TOPNT+1 

C10E- 

2A 

0099 

LDY 

•LENGTH* 1 

C110- 

84 

B8 

0100 

STY 

•FMPNT 

;USE  AS  TMP  CNTR 

C112- 

C6 

B8 

0101 

DEC 

•FMPNT 

C114- 

!2° 

OA 

0102 

BMI 

=+11 

C116- 

00 

0103 
0104 

LDX 

#0 

C118- 

20 

00 

CC 

JSR 

CLRMEM 

; CLEAR  256  BYTES 

C11B- 

E6 

BB 

0105 

INC 

•TOPNT+1 

;NEXT  PAGE  OF  MEM 

C11D- 

4C 

12 

CI 

0106 

JMP 

=-11 

C120- 

A6 

29 

0107 
0108 

LDX 

•LENGTH 

C122- 

FO 

03 

BEQ 

=+4 

C124- 

4C 

00 

CC 

0109 
0110 

JMP 

CLRMEM 

0111 

;THIS  ROUTINE  SAV  : 

ON  CASSETTE 

0112 

;IN  HS  FORMAT. 

0113 
0114 

STORE 

C127- 

20 

45 

C1 

0115 

JSR 

CALCLABEL 

C12A- 

A5 

28 

0116 

LDA 

•LABEL 

C12C- 

8D 

4E 

A6 

0117 
0118 

STA 

PARN+4 

C12F- 

A2 

°3 

LDX 

#3 

C131- 

B5 

04 

0119 

LDA 

•DATAEND.X 

C133- 

9D 

4A 

A6 

0120 

STA 

PARN.X 

C136- 

CA 

0121 

DEX 

C137- 

10 

F8 

0122 

BPL 

=-7 

C139- 

A9 

01 

0123 
0124 

LDA 

#1 

C13B- 

8D 

30 

A6 

STA 

TAPDEL 

[SHORTEN  LEADER  TO  ' 

I. 5  SEC 

C13E- 

08 

0125 

PHP 

C13F- 
C140- 

78 

0126 

SEI 

20 

EA 

87 

0127 
0128 

JSR 

SAVE2 

[SAVE  ON  TAPE 

C143- 
C144- 

28 

PLP 

60 

0129 

RTS 

0130 

0131 

CALCLABEL 

C115- 

A5 

24 

0132 

LDA 

•DAY+2 

;DAY  OF  MONTH 

C1J17- 

29 

3F 

0133 
0134 

AND 

BINARY 

C1H9- 
C14C- 

20 

70 

C4 

JSR 

OA 

0135 

ASL 

A 

C14D- 

OA 

0136 

ASL 

A 

C14E- 

OA 

0137 
0138 

ASL 

A 

C14F- 

85 

28 

STA 

•LABEL 

C151- 

A5 

25 

0139 
0140 

LDA 

•DAY+3 

[HOUR  OF  DAY 

C153- 

29 

3F 

AND 

«3F 
BINARY 

C155- 
C158- 

20 

70 

C4 

0141 

JSR 

A2 

FF 

0142 

LDX 

#$FF 
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C15A-  E8 
C15B-  38 
C15C-  E9  03 
C15E-  BO  FA 
C160-  8A 
C161-  05  28 
C163-  85  28 
C165-  60 


C166-  A2  05 
C168-  AO  OD 
C16A-  B5  22 
C16C-  31  06 
C16E-  88 
C16F-  CA 
C170-  10  F8 
C172-  60 


C173-  AO  07 
C175-  A2  10 
C177-  B5  00 
C179-  91  06 
C17B-  CA 
C17C-  88 
C17D-  DO  F8 
C17F-  AD  FF  C7 
C182-  91  06 
C184-  60 


0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0052 


INX 

SEC 

SBC  #3 

BCS  =-5 

TXA 

ORA  'LABEL 

STA  «LABEL 

RTS 

;MOVE  CLOCK  TO  DATA  FIELD 

MOVECLOCK 

LDX  #5 

LDY  #HEADER+5 

LDA  »DAY,X 

STA  ( DATASTART ),Y 

DEY 

DEX 

BPL  MOVECLOCK+4 

RTS 

;SAVE  HEADER  STUFF  Dt  DATA  AREA 

MOVEHEADER 

LDY  #HEADER-1 

LDX   #SAVTIME 

LDA  «0,X 

STA    (DATASTART) ,Y 

DEX 

DEY 

BNE  MOVEHEADER+4 

LDA  LOGGERID 

STA  (DATASTART ),Y 

RTS 

;PUT  "L3FILE.S" 

.FI  "L3INIT.S" 


; DIVIDE  BY  3 


;END  OF  HEADER  DATA 


;L00P  FOR  ALL  HEADER 

; UNIQUE  ID  FOR  EACH  LOGGER 

;SAVE  ID 


0F24     35E4-4508     L3INIT.S 


C185- 


C18T- 

-  8A- 


A9  00 
8D  03 
C18A-  AD  01 
C18D-  49  FF 
C18F-  C5  OA 
C191-  DO  OD 
C193-  A6  00 
C195-  EO  5A 
C197-  DO  07 
C199-  A6  01 
C19B-  EO  A5 
C19D-  DO  01 
C19F-  60 


C1A0-  78 
C1A1-  20  B8  C1 
C1A4-  20  E8  C1 
C1A7-  20  15  C2 
C1AA-  20  36  C2 
C1AD-  20  63  C2 
C1B0-  20  7E  C2 
C1B3-  20  AF  C2 
C1B6-  58 
C1B7-  60 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 


.CE 
;PUT  "L3INIT.S" 

; INITIAL  ROUTINE  INITIALIZES  DATA  IF  LOCATIONS 
; 00  4  01  ARE  NOT  5A  &  A5  RESP. 

INIT 


eiNITA 


LDA  #$00 
STA  VIA3+3 
LDA  VIA3+1 
EOR  #$FF 
CMP  'SWITCH 
BNE  gINITA 
LDX  'VERIFY 
CPX  #$5A 
BNE  3INITA 
LDX  <>VERIFY+1 
CPX  #$A5 
BNE  §INITA 
RTS 


SEI 

JSR  ZEROMEM 

JSR  DECODESW 

JSR   CALCLENGTH 

JSR  CALCADDR 

JSR  CALCMXREC 

JSR  CALCDATAEND 

JSR  CALCSAVE 

CLI 

RTS 


; CHECK  SWITCHES 
;SET  FOR  INPUT 

; INVERT  FOR  NICENESS 
;ARE  SWITCHES  SAME 

;IS   INIT  STILL  INTACT? 
; VERIFY  SHOULD  BE  5A  4  A5 


; VERIFY  HASN'T  CHANGED 
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C1B8-  48 
C1B9-  A9  00 
C1BB-  A2  F8 
C1BD-  CA 
CI BE-  95  00 
C1C0-  DO  FB 


C1C2- 
C1C4- 
C1C7- 
C1C9- 
C1CA- 

C1CC- 
C1CE- 
C1D0- 
C1D2- 
C1D4- 
C1D6- 
C1D8- 
C1DA- 
C1DC- 
C1DE- 
C1E0- 
C1E2- 
C1E4- 

C1E6- 
C1E7- 


A2  09 
BD  5D  C9 
95  00 
CA 
10  F8 

A9  00 
AO  00 
91  02 
D1  02 
DO  08 
E6  02 
DO  F6 
E6  03 
DO  F2 
A5  02 
DO  02 
C6  03 
C6  02 

68 
60 


C1E8- 
C1EA- 
C1EC- 
C1ED- 
C1EE- 
C1F0- 
C1F2- 
C1F4- 
C1F6- 
C1F8- 
C1FA- 
C 1  FC- 
CI  FD- 
C 1  FE- 
CI FF- 
C201- 
C203- 
C205- 
C206- 
C207- 
C208- 
C209- 
C20A- 
C20D- 
C20F- 
C212- 
C21H- 


85 

OA 

29 

06 

OA 

OA 

69 

08 

85 

OB 

A5 

OA 

29 

08 

85 

OC 

A5 

OA 

29 

10 

4A 

4A 

4A 

85 

OD 

A5 

OA 

29  EO 

4A 

4A 

4A 

4A 

AA 

ED 

67  C9 

85 

OE 

BD 

68  C9 

85 

OF 

60 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

OO83 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 


;ZEROMEH:  ZERO  ZP  &   DATA  MEMORY,  INITIALIZE 
;ZP  VALUES,  AND  FIND  END  OF  MEMORY. 


ZEROMEM 


PHA 

LDA  #0 
LDX  #$F8 
DEX 

STA  »00,X 
BNE  =-4 

LDX  #ICODNT 

LDA  INITDATA.X 

STA  *$00,X 
DEX 

BPL  =-7 

LDA  #0 

LDY  #0 

STA  (MEMEND).Y 

CMP  (MEMEND),Y 

BNE  =+9 

INC  «MEMEND 

BNE  =-9 

INC  »MEMEND+1 

BNE  =-13 

LDA  »MEMEND 

BNE  =+3 

DEC  »MEMEND+1 

DEC  «MEMEND 


;SAVE  SWITCHES 

;SET  ZERO  PAGE  MEMORY  TO  Z 


;#  OF  BYTES  IN  ZERO  PAGE  T 
; TRANSFER  INITIAL  VALUES 


;SET  MEMEND  ON  LAST  BYTE 

;CLR  MEM 

; MEMORY  EXISTANT 

[POINT  TO  NEXT  BYTE 


; BACKUP  ONE  BYTE 


PLA 
RTS 

SAVE  AND  DECODE  SWITCHES 

SWITCH  BITS  ARE  DIVIDED  AS  FOLLOWS: 

NOT  USED  0 

ANALOGCHAN        1,2 

DIGITALCHAN       3 

PULSECHAN         4 

SAMPLETIMES      5,6,7 


DECODESW 


STA 
AND 
ASL 
ASL 
ADC 
STA 
LDA 
AND 
STA 
LDA 
AND 
LSR 
LSR 
LSR 
STA 
LDA 
AND 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA 
STA 
LDA 
STA 
RTS 


•SWITCH 

#$06 

A 

A 

#$08 

•ADCHAN 

•SWITCH 

#$08 

•DGCHAN 

•SWITCH 

#$10 

A 

A 

A 

•PLCHAN 

•SWITCH 

#$E0 

A 

A 

A 

A 

TIMES.X 
•SMPTIME 
TIMES+1.X 
•AVGTIME 


;SET  SWITCHES 
;PICK  ADCHANS 


;GET  DIGITAL  CHANNELS 
;GET  PULSE  CHANNELS 

;GET  INTERVAL  TIMES 


;  SAMPLE  TIME 
[AVERAGE  TIME 
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C215- 
C216- 
C218- 
C21A- 
C21C- 
C21D- 
C21F- 
C221- 
C222- 
C224- 
C226- 
C227- 
C229- 
C22B- 
C22D- 
C22F- 
C231- 
C233- 
C235- 


18 

A5  OB 
65  0D 
69  02 
0A 

85  29 
26  2A 

A5  0D 
FO  01 
38 

A5  OC 
65  29 
85  29 
90  02 
E6  2A 
06  29 
26  2A 
60 


C236-  18 
C237-  A9  10 
C239-  65  06 
C23B-  85  11 
C23D-  A9  00 


C23F 
C241 


65  07 
85  12 


C243 
C245 
C246-  26 
C248-  OA 
C2II9-  26 
C24B-  65  11 
C24D-  85  r 
C24F-  A5 


A5  OB 
OA 

"  14 

14 


C251- 
C253- 


tl 


65  12 
85  14 


C255-  A5  OC 
C257-  OA 
C258-  65  13 
C25A-  85  17 
C25C-  A9  00 
C25E-  65  14 
C260-  85  18 
C262-  60 


C263- 
C264- 
C266- 
C268- 
C26A- 
C26C- 
C26E- 
C270- 
C271- 
C273- 
C274- 
C275- 
C277- 


38 

A9  OC 
E5  OF 
BO  02 
A9  00 
C9  06 
BO  09 
AA 

A9  02 
OA 
CA 

10  FC 
30  02 


0104 

0105 

0106  CALCLENGTH 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129  CALCADDR 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 


CALCDATE  LENGTH  OF  RECORD  &  STORE  AT  LENGTH 


CLC 

LDA  »ADCHAN 

ADC  »PLCHAN 

ADC  #$02 

ASL  A 

STA  'LENGTH 

ROL  »LENGTH+1 

CLC 

LDA  «PLCHAN 

BEQ  =+2 

SEC 

LDA  »DGCHAN 

ADC  'LENGTH 

STA  "LENGTH 

BCC  -+3 

INC  »LENGTH+1 

ASL  "LENGTH 

ROL  »LENGTH+1 

RTS 


;8  BYTES  FOR  CLOCK  AND  COU 
;MULT  BY  2 

; SHIFT  IN  CARRY 

;MAKE  SPACE  FOR  CLOCK 

;ADD  2  FOR  CLOCK 


;MULT  BY  2 


CALCDATE  ADDRESSES  OF  THE  DATA 


CLC 

LDA  #HEADER+3 

ADC  »DATASTART 

STA  »ADADDR 

LDA  #400 

ADC  »DATASTART+1 

STA  'ADADDR+1 

LDA  »ADCHAN 

ASL  A 

ROL  «DGADDR+1 

ASL  A 

ROL  »DGADDR+1 

ADC  »ADADDR 

STA  »DGADDR 

LDA  «DGADDR+1 

ADC  »ADADDR+1 

STA  »DGADDR+1 

LDA  «DGCHAN 

ASL  A 

ADC  »DGADDR 

STA  «PLADDR 

LDA  #$00 

ADC  «DGADDR+1 

STA  »PLADDR+1 

RTS 


FIND  LENGTH  OF  MEMORY  AND  CALCUATE 
DATA  END  AND  MOVE  ADDRESSES 


;CALC  ADADDR 

; HEADER  +  TIME  AND  LENGTH 


;CALC  DGADDR 


;CALC  PLADDR 


CALCMXREC 


0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175  9CALCMXREC 


SEC 

LDA  #MAXSAVE 

SBC  »AVGTIME 

BCS  =+3 

LDA  #0 

CMP  #6 

BCS  §CALCMXREC 

TAX 

LDA  #2 

ASL  A 

DEX 

BPL  =-3 

BMI  =+3 


;MAX  SAVE  INTERVAL 
; AVERAGE  INTERVAL 
;0  IF  MAX  <  AVG 

;LOG  OF  #HEC  PER  SAVE 


;HEP  FACTOR  OF  4 


; ALWAYS 
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C279-  A9  FF 
C27B-  85  21 
C27D-  60 


C27E- 
C27F- 
C281- 
C283- 
C285- 
C287- 
C289- 

C28B- 
C28D- 
C28F- 
C291- 
C293- 
C295- 


18 

A5  04 
65  29 
85  04 
A5  05 
65  2A 
85  05 

A5  03 
C5  05 
DO  04 
A5  02 
C5  04 
90  OA 


C297-  E6  2B 
C299-  A5  2B 
C29B-  C5  21 
C29D-  FO  OF 
C29F-  DO  DD 

C2A1-  38 
C2A2-  A5  04 


C2A4- 
C2A6- 
C2A8- 
C2AA- 
C2AC- 


E5 
85  0. 
A5  05 


E5  2A 
85  05 


C2AE-  60 


C2AF- 
C2B1- 
C2B3- 
C2B4- 
C2B5- 
C2B7- 
C2B8- 
C2BA- 
C2BC- 
C2BE- 
C2C0- 
C2C2- 
C2C4- 
C2C6- 
C2C8- 
C2CA- 
C2CC- 
C2CE- 


A6  OF 
A5  2B 
4A 
4A 

FO  03 
E8 

DO  FA 
EO  OC 
90  02 
A2  OC 
EO  06 
BO  02 
A2  06 
E4  OF 
BO  02 
A6  OF 


10 


0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 

0213 

0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0053 


LDA  #$FF 
STA  *CURVAL 
RTS 


CALCDATAEND 


CLC 

LDA  'DATAEND 
ADC  'LENGTH 
STA  *DATAEND 
LDA  'DATAEND+1 
ADC  »LENGTH+1 
STA  *DATAEND+1 

LDA  »MEMEHD+1 
CMP  »DATAEND+1 
BNE  =+5 
LDA  »MEMEND 
CMP  *DATAEND 
BCC  SCALCDATAEND1 


;ADD  LENGTH  TO  DATAEND 


; CHECK  FOR  VALID  MEMORY 


INC 
LDA 
CMP 
BEQ 
BNE 

SCALCDATAEND1 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 

§CALCDATAEND2 
RTS 


•NUMREC 

•NUMREC 

•CIJRVAL 

§CALCDATAEND2 

CALCDATAEND 


•DATAEND 

•LENGTH 

•DATAEND 

•DATAEND+1 

•LENGTH+1 

•DATAEND+1 


;MAX  t   REC 
[ALWAYS 


CALCDATE  SAVE  TIME  INTERVAL 


CALCSAVE 


LDX  «AVGTIME 

LDA  »NUMREC 

LSR  A 

LSR  A 

BEQ  =+4 

INX 

BNE  =-5 

CPX  #MAXSAVE 

BCC  =+3 

LDX  #MAXSAVE 

CPX  #MINSAVE 

BCS   =+3 

LDX  flIINSAVE 

CPX  »AVGTIME 

BCS   =+3 

LDX  «AVGTIME 

STX   *SAVTIME 

RTS 

;POT  "L3INIT.S" 

.FI   "L3SH0W.S" 


;SAVE  AT  LEAST  TWICE 


; ALWAYS 

;SAVE  AT  LEAST  EVERY  3  HOU 


;MINIMUN  SAVE  TIME 

; DON'T  SAVE  MORE  THAN  AVG 


0AF3  35E4-40D7  L3SH0W.S 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 


;PUT  "L3SH0W.S" 

[DISPLAY  ROUTINE.      THIS   ROUTINE 

;WILL  DISPLAY  ONE  VALUE  OR   CYCLE 

; THROUGH  ALL  VALUES  ON  DEMAND. 

; INDIVIDUAL  ROUTINES  ARE  CALLED  FROM 

;JUMPTABLE  TO  PUT  THE  DIFFERENT 

; PARAMETERS  INTO  THE  DISPLAY  BUFFER 
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C2CF- 
C2D1- 

C2D4- 
C2D6- 
C2D7- 
C2D8- 
C2DB- 
C2DD- 
C2E0- 
C2E2- 
C2E4- 
C2E6- 
C2E8- 
C2EA- 
C2EC- 


A9  00 

8D  03  AC 

A5  1C 

0A 
AA 

BD  44  C9 

85  15 

BD  1)5 

85  16 

C9  FF 

DO  08 

A9  00 

85  1C 

85  1D 

FO  E1 


C9 


C2EE-  78 

C2EF-  20  12  C3 
C2F2-  58 

C2F3-  90  11 

C2F5-  A9  00 

C2F7-  C5  1D 

C2F9-  FO  06 

C2FB-  85  ID 

C2FD-  C5  1B 

C2FF-  DO  CE 

C301-  E6  1C 

C303-  4C  CF  C2 

C306-  20  15  C3 
C309-  24  1B 
C30B-  30  C2 
C30D-  E6  1D 
C30F-  4C  CF  C2 

C312-  6C  15  00 


C315-  A5  08 
C317-  24  1B 
C319-  10  02 
C31B-  A5  09 
C31D-  85  20 

C31F-  A9  38 
C321-  85  1F 


C323-  20  06 
C326-  DO  OD 
C328-  A9  28 
C32A-  85  1E 
C32C-  C6  1F 
C32E-  DO  F3 
C330-  C6  20 
C332-  DO  EB 
C33*-  60 


C335-  C6  1E 
C337-  DO  EA 
C339-  A9  FF 
C33B-  85  1B 
C33D-  A2  17 


89 


0010  SHOW 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040  gSHCHLOOP 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 


LDA  #0 
STA  VIA3+3 


•DISCNT 
A 


SHOWDISP 


LDA 

ASL 

TAX 

LDA  JMPTAB.X 

STA  «JMPVEC 

LDA  JMPTAB+1.X 

STA  »JMPVEC+1 

CMP  #$FF 

BNE  =+9 

LDA  #$00 

STA  *DISCNT 

STA  »DISCNT+1 

BEQ  SHOW 

SEI 

JSR  SHOWDISP 

CLI 

BCC  gSHOWLOOP 

LDA  #J00 

CMP  «DISCNT+1 

BEQ  =+7 

STA  'DISCNT+1 

CMP  'CYCLE 

BNE  SHOW 

INC  'DISCNT 

JMP  SHOW 

JSR  LOOP 
BIT  "CYCLE 
BMI  SHOW 
INC  *DISCNT+1 
JMP  SHOW 

JMP  (JMPVEC) 


;DEFETE  ACCESS  &   NACCESS 

;MOLT  BY  2 

;GET  ROUTINE  ADDRESS 

;2ND  BYTE 


; START  AT  ZERO  IF  AT  END 


i VALID  IF  CARRY  CLEAR 

; INVALID  ON  CHAN  07 
;INC  NOMATER  WHAT  CYCLE 
i INCREMENT  TO  NEXT  # 

;SAME  ROUTINE  IF  NONZERO 


J DISPLAY  VALUES 


;PUT  VALUES   IN  DISPLAY  BUF 


,  ;THIS  ROUTINE  SCANS  DISPLAY  WITH 
0050  ; VALUES  STORED  IN  DISPLAY  BUFFER 
0051 


0052  LOOP 

0053 

0054 

0055 

0056 

0057 

0058  SL00P1 

0059 

0060 

0061  SL00P2 

0062 

006  3 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076  KEY 

0077 

0078 

0079 

0080 

0081 


LDA  »DISVEL 
BIT  'CYCLE 
BPL  =+3 
LDA  «DISVEL+1 
STA  «LCNT2 

LDA  #56 
STA  »LCNT1 

JSR  SCAND 
BNE  KEY 
LDA  #40 
STA  «KEYCNT 
DEC  »LCNT1 
BNE  0LOOP2 
DEC  »LCNT2 
BNE  &OOP1 
RTS 

;KEY  ROUTINE.  CHECKS  FOR  VALID 
;KEY  INPUTS.  AND  DETERMINES  WHAT 
;KEY  IS  DEPRESSED. 

DEC  »KEYCNT 
BNE  0LOOP2 
LDA  #$FF 
STA  »CYCLE 
LDX  #23 


; CYCLING  DISPLAY  VELOCITY 
; CURRENTLY  CYCLING 

; STEADY  DISPLAY  VELOCITY 


;SCAN  DISPLAY 

;IF  KEY  DEPRESSED, 


KEY 


;ST0P  CYCLING 
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C33F-  20 
C342-  20 

63 

C4 

0082 

JSR  LEDMESG 

20 

82 

0083 
0084 

JSR  PARM 

C3115-  DO 

22 

BNE  SKEY2 

C347-  AC 
C34A-  FO 

49  A6 

0085 

LDY  PARNR 

6F 

0086 

BEQ  GOMON 

C34C-  AD 

4A 

A6 

0087 
0088 

LDA  PAHN 

C34F-  20 

70 

C4 

JSR  BINARY 

S35?-  §1 

1D 

0089 

STA  *DISCNT+1 

C354-  88 

0090 

DEY 

C355-  DO 

01 

0091 

BNE  =+2 

C357-  60 
C358-  AD 

0092 

RTS 

4C 

A6 

0093 

LDA  PARN+2 

C35B-  20 

70 

C4 

0094 

JSR  BINARY 

C35E-  OA 

0095 

ASL  A 

C35F-  C9 

OE 

0096 

CMP  #L.NOCHAN 

C361-  30 
C363-  10 

02 

0097 
0098 

BMI  =+3 

4A 

BPL  §SERROR 

C365-  4A 

0099 

LSR  A 

C366-  85 

1C 

0100 

STA  »DISCNT 

C368-  60 

0101 

0102  0KET2 

RTS 

C369-  C9 

3C 

0103 
0104 

CMP  #•< 

C36B-  DO 

07 

BNE  fflC1 

C36D-  A6 

1D 

0105 

LDX  «DISCNT+1 

C36F-  FO 

02 

0106 

BEQ  =+3 

C371-  C6 

1D 

0107 
0108 

DEC  "DISCNT+1 

C373-  60 

RTS 

0109  SK1 

C374-  C9 

3E 

0110 

CMP  #•> 

C376-  DO 
C378-  E6 

b 

0111 

BNE  gK2 

0112 

INC  *DISCNT+1 

C37A-  60 

0113 
0114  §K2 

RTS 

C37B-  C9 

4D 

0115 

CMP  #'M 

C37D-  DO 

01 

0116 

BNE  gK3 

C37F-  60 

0117 
0118  SK3 

RTS 

C38O-  C9 

52 

0119 

CMP  #'R 

C382-  DO 

05 

0120 

BNE  gK4 

C384-  A9 

40 

0121 

LDA  f$40 

C386-  85 

IB 

0122 

STA  *CYCLE 

C388-  60 

0123 
0124  SK4 

RTS 

C389-  C9 

1E 

0125 

CMP  #$1E 

C38B-  DO  OC 

0126 

BNE  §K5 

C38D-  78 

0127 
0128 

SEI 

C38E-  20 

AC 

CO 

JSR  AVERAGE 

C391-  20 

BO 

CO 

0129 

JSR  SAVE 

C394-  20 

B7 

CO 

0130 

JSR  MOVE 

C397-  58 
C398-  60 

0131 

CLI 

0132 

RTS 

0133  SK5 
0134 

C399-  C9 

13 

CMP  #$13 

C39B-  DO 

09 

0135 

BNE  0K6 

C39D-  78 

0136 

SEI 

C39E-  20 

AC 

CO 

0137 
0138 

JSR  AVERAGE 

C3A1-  20 

B7 

CO 

JSR  MOVE 

C3A4-  58 
C3A5-  60 

0139 

CLI 

0140 

RTS 

0141  «C6 

C3A6-  C9 

17 

0142 

CMP  #'G 

C3A8-  DO 
C3AA-  A9 

05 
00 

0143 
0144 

BNE  gSERROR 
LDA  #400 
STA  "CYCLE 

C3AC-  85 

IB 

0145 

C3AE-  60 

0146 
0147 
0148  gSERROR 

RTS 

C3AF-  A2 

11 

0149 

LDX  #17 

C3B1-  20 

63  C4 

0150 

JSR  LEDMESG 

C3B4-  A9 

80 

0151 

LDA  #$80 

C3B6-  85 

20 

0152 

STA  «LCNT2 

C3B8-  4C 

1F  I 

33 

0153 

JMP  §L00P1 

73 


; DISPLAY  CHAN? 

;GET  PARAMETERS 

;CR7  N0,gKEY2 

;GET  NUMBER  OF  PARAMETERS 

;IF  NO  PARAM  THEN  GOTO  MON 


;IF  NOT  0  SKIP  RTS  STATEME 


;MULT  BY  2 
:00T  OF  RANGE? 


;SET  ROUTINE  # 

;BACK  OP  ONE  CHANNEL 
; DON'T  DEC  IF  ZERRO 


J  NEXT   CHANNEL 


;STOP  CYCLING 


; CYCLE  ONLY  ONE  TYPE 


;S2:   SAVE  DATA 


;L2:  AVERAGE  A  READING 


; CYCLE  ON  EVERYTHING 


;END  OF  MESSAGE 
[DISPLAY  MESSAGE  ON  LEDS 
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0155  GOMON 

C3BB-  A2  1D 

0156 

LDX  #29 

C3BD-  20  63  C4 

0157 
0158 

JSR  LEDMESG 

C3C0-  38 
C3C1-  68 

SEC 

0159 

PLA 

C3C2-  68 

0160 

PLA 

C3C3-  68 
C3C4-  E9  02 

0161 

PLA 

0162 

SBC  #$02 
STA  GOVEC 

C3C6-  8D  59  A6 

0163 
0164 

C3C9-  68 

PLA 

C3CA-  E9  00 

0165 

SBC  #400 
STA  GOVEC+1 

C3CC-  8D  5A  A6 

0166 

C3CF-  4C  03  80 

0167 
0168 
0169 
0054 

JMP  MONITOR 

;PUT  » 

'L3SH0W.S" 

•  FI  "L3GENERAL.S' 

74 


JDISPLAY  SY1.1. 

;FULL  LOOP  RETURN 

;SH0W  RETURN 
; BACKUP  TO  CALL 

;SUB  ANY  BORROW 
;G0  CR  WILL  CONT. 


07D7     35E4-3DBB     L3GENERAL.S 


0001  ;PUT  "L3GENERAL.S" 
0002 

0003  ;THIS  ROUTINE  DISPLAYS  SOME  GENERAL  VARIABLES  USED 

0004  ;IN  THE  DATA  LOGGING  PROGRAM 
0005 


; CHANNEL   REQUESTED 
; DISPLAY  CHANNEL 


0006  GENDISP 

C3D2-  A5  1D 

0007 
0008 

LDA  »DISCNT+1 

C3D4-  20  FA  82 

JSR  OUTBYT 

0009 

C3D7-  C9  00 

0010 

CMP  #0 

C3D9-  DO  06 

0011 

BNE  @G1 

C3DB-  AD  FF  C7 
C3DE-  4C  02  C4 

0012 

LDA  LOGGERID 

0013 

0014  SG1 

JMP  gGENBCD 

C3E1-  C9  01 

0015 

CMP  #1 

C3E3-  DO  05 

0016 

BNE  @G2 

C3E5-  A5  OB 

0017 
0018 

LDA  »ADCHAN 

C3E7-  4C  02  C4 

JMP  gGENBCD 

0019  SG2 

C3EA-  C9  02 

0020 

CMP  #2 

C3EC-  DO  05 

0021 

BNE  SG3 

C3EE-  A5  OC 

0022 

LDA  "DGCHAN 

C3F0-  4C  02  C4 

0023 

0024  8G3 

JMP  gGENBCD 

C3F3-  C9  03 

0025 

CMP  #3 
BNE  SG4 

C3F5-  DO  05 

0026 

C3F7-  A5  OD 
C3F9-  4C  02  C4 

0027 
0028 
0029  §G4 

LDA  *PLCHAN 
JMP  SGENBCD 

C3FC-  C9  04 

0030 

CMP  #4 

C3FE-  DO  OA 
C400-  A5  2B 

0031 

BNE  §G5 

0032 

LDA  «NUMREC 

0033  gGENBCD 
0034 

C402-  20  80  C4 

JSR  BINDEC 

0035  gGENOUT 

C405-  20  F4  82 

0036 

JSR  OUTXAH 

C408-  18 
C409-  60 

0037 
0038 

0039  SG5 
0040 

CLC 

RTS 

C40A-  C9  05 

CMP  #5 

C40C-  DO  19 

0041 

BNE  §G6 

C40E-  A5  29 

0042 

LDA  "LENGTH 

C410-  20  80  C4 

0043 

JSR  BINDEC 

C413-  F8 
C414-  A4  2A 

0044 

SED 

0045 

LDY  »LENGTH+1 

C416-  88 

0046 

DEY 

C417-  10  04 

0047 
0048 

BPL  =+5 

C419-  D8 
C41A-  4C  05  C4 

CLD 

0049 

JMP  gGENOUT 

C41D-  18 

0050 

CLC 

C41E-  69  56 

0051 

ADC  #$56 

C420-  90  01 

0052 

BCC  =+2 

;CHOO  LOGGER  ID 


;CH01  ADCHANNELS 


;CH02  DGCHANNELS 


;CH03  PLCHANN 


;CH04  NUREC 


; CONVERT  TO  DECIMAL 


;CH05  LENGTH 
;LOW  BYTE 

;HIGH  BYTE 

; PRINT  # 

;LOW  BYTE  OF  256 
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C422-  E8 
C423-  E8 
C424-  E8 
C425-  DO  EF 

C427-  C9  06 
C429-  DO  07 
C42B-  A6  05 
C42D-  A5  04 
C42F-  4C  05  C4 

C432-  C9  07 
C434-  DO  07 
C436-  A6  03 
C438-  A5  02 
C43A-  4C  05  C4 

C43D-  C9  08 
C43F-  DO  14 
C441-  20  42  83 
C444-  A5  OE 
C446-  20  44  8A 
C449-  A5  OF 

20  44  8A 
A5  10 
20  44  8A 
18 
60 


C44B. 

C44E 

C450. 

C453- 

C454- 


C455-  C9  09 
C457-  DO  08 
C459-  20  45  C1 
C45C-  A6  3C 
C45E-  4C  05  C4 

C461-  38 
C462-  60 


C463-  AO  05 
C465-  BD  26  C9 
C468-  99  40  A6 
C46B-  CA 
C46C-  88 
C46D-  10  F6 
C46F-  60 


C470-  48 
C471-  4A 
C472-  4A 
C473-  4A 
C474-  4A 
C475-  AA 
C476-  68 
C477-  CA 
C478-  10  01 
C47A-  60 
C47B-  38 
C47C-  E9  06 
C47E-  BO  F7 


; CARRY 
;200 

;T0  DEY 


;CH08  TIMES  SAMP , AVG , SAVE 


0053  INX 

0054  INX 

0055  INX 

0056  BNE  0G5+12 

0057  §06 

0058  CMP  #6  ;CH06  DATAEND 

0059  BNE  §G7 

0060  LDX  »DATAEND+1 

0061  LDA  »DATAEND 

0062  JMP  gGENOUT 

0063  9G7 

0064  CMP  #7„  JCH07  MEMEND 

0065  BNE  §G8 

0066  LDX  »MEMEND+1 

0067  LDA  *MEMEND 

0068  JMP  gGENOUT 

0069  SG8 

0070  CMP  #8 

0071  BNE  §G9 

0072  JSR  SPACE 

0073  LDA  «SMPTIME 

0074  JSR  OOTNIB 

0075  LDA  "AVGTIME 

0076  JSR  ODTNIB 

0077  LDA  'SAVTIME 

0078  JSR  OUTNIB 

0079  CLC 

0080  RTS 

0081  gG9 

0082  CMP  *9 

0083  BNE  §G10 

0084  JSR  CALCLABEL 

0085  LDX  «ADERR 

0086  JMP  gGENOUT 

0087  0G1O 

0088  SEC 

0089  RTS 
0090 

0091  JLEDMESG:  DISPLAY  A  HEX  CODED  MESSAGE  ON  THE 

0092  ;LED  DISPLAY  LOCATED  AT  OFFSET  IN  X  AND  RETURN. 
0093 


;CH09  A/DERR  &   LABEL 
;GET  LABEL 


0094  LEDMESG 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 


LDY  #$05 

LDA  LEDMESSAGES.X 

STA  DISBUF.Y 

DEX 

DEY 

BPL  LEDMESG+2 

RTS 


0103 
0104 


jDO  A  BCD  TO  BINARY  CONVERSION 
BINARY 


C480- 
C481- 


38 
A2  FF 


0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118  BCS  =-8  ; ALWAYS 

0120  ;  CONVERT  BINARY  NUMBER  IN  A  TO  DECIMAL  IN  X  AND  A 

0122  BINDEC 

0123  SEC 

0124  LDX  #$FF  ;F0R  COMPENSATION 


PHA 

LSR 

LSR 

LSR 

LSR 

TAX 

PLA 

DEX 

BPL 

RTS 

SEC 

SBC  #$06 

BCS  =-8 


=+2 


Appendix  C 


Logger  Source 


76 


C483- 
84- 


.  E8 
C484-  E9  64 
C486-  BO  FB 
C488-  69  64 
C48A-  48 
C48B-  4A 
C48C-  4A 
C48D-  4A 
C48E-  4A 
C48F-  A8 
C490-  68 
C491-  18 
C492-  F8 
C493-  6 < 
C495-  8{ 
C496-  30  06 
C498-  18 
C499-  69  06 
C49B-  4C  95  C4 
C49E-  D8 
C49F-  60 


00 


0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147  ;PUT 

0055 


INX 

SBC  #100 

BCS  BINDEC+3 

ADC  #100 

PHA 

LSR  A 

LSR  A 


LSR 

LSR 

TAY 

PLA 

CLC 

SED 

ADC  #$00 

DEY 

BMI  =+7 

CLC 

ADC  #$06 

JMP  =-6 

CLD 

RTS 

"L3GENERAL.S" 

.FI  "L3CLOCK.S" 


; SUBTRACT  100 
;ADD  BACK  100. 
;GET  TOP  NIBBLE 

;SAVE  COUNTER 

; ADJUST  TO  DECIMAL 

;TO  CLD 

;ADD  Y»6 
;T0  DEY 


0D11  35E4-42F5  L3CL0CK.S 


A5  1D 
C9  00 
FO  15 
C9  01 
FO  24 
C9  OA 
FO  06 
C9  OB 
FO  15 


C4A0- 
C4A2- 
C4A4- 
C4A6- 
C4A8- 
C4AA- 
C4AC- 
C4AE- 
C4B0- 
C4B2- 
C4B3- 


C4B4-  20  09  C5 
C4B7-  A9  00 
C4B9-  85  1D 

C4BB-  A5  23 
C4BD-  20  FA  82 
C4C0-  A6  24 
C4C2-  A5  22 
C4C4-  4C  D7  C4 

C4C7-  20  EC  C4 
C4CA-  A9  01 
C4CC-  85  1D 


C4CE- 
C4D0- 
C4D3- 
C4D5- 
C4D7- 
C4DA- 
C4DD- 
C4DF- 
C4E2- 
C4E5- 
C4E7- 
C4EA- 
C4EB- 


A5  25 
20  FA  82 
A6  26 
A5  27 
20  F4 
AD  41 
09  80 
8D  41 
AD  43 
09  80 
8D  43  A6 
18 
60 


82 
A6 

A6 
A6 


;PUT  "L3CLOCK.S" 
CLKDISP 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019  SDATEDISP 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029  §TIMEDISP 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 


LDA  »DISCNT+1 

CMP  #0 

BEQ  gDATEDISP 

CMP  #1 

BEQ  STIMEDISP 

CMP  #10 

BEQ  gDATEDISP-7 

CMP  #11 

BEQ   §TIMEDISP-7 

SEC 

RTS 

JSR  SETDATE 

LDA  #$00 

STA  »DISCNT+1 

LDA  »DAY+1 

JSR  OUTBYT 

LDX  »DAY+2 

LDA  «DAY 

JMP  gTIMEDISP+9 

JSR  SETIME 

LDA   #$01 

STA  »DISCNT+1 

LDA   »DAY+3 
JSR  OUTBYT 
LDX  «DAY+4 
LDA  »DAY+5 
JSR  OUTXAH 
LDA  DISBUF+1 
ORA  #$80 
STA  DISBUF+1 
LDA  DISBUF+3 
ORA  #$80 
STA  DISBUF+3 
CLC 
RTS 


;  RESET  CNTR   TO  DATEDISP 


; RESET  CNTR   TO  TIMEDISP 


;DISCNT  OK 


;SET  THE  TIME  HOURS  AND  MINUTES  AND 
; RESET  THE  SECONDS  TO  ZERO 
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C4EC- 
C4EE- 
C4F1- 
C4F3- 
C4F5- 
C4F7- 
C4FA- 
C4FC- 
C4FF- 
C502- 
C505- 
C507- 


C509- 
C50B- 
C50E- 
C510- 
C512- 
C514- 
C517- 
C51A- 
C51D- 
C520- 
C523- 
C526- 


A2  OB 
20  D5  C5 
C9  02 
DO  31 
A2  05 
AD  ItC  A6 
09  80 
20  6C  C5 
AD  HA  A6 
20  6C  C5 
A9  00 
FO  1A 


A2  05 
20  D5  C5 
C9  0' 


DO 
A2  OC 


?2 


AD 

U 

A6 

20 

6C 

C5 

AD 

itE 

A6 

20 

6C 

C5 

AD 

4C 

A6 

20 

6C 

C5 

20 

BO 

C5 

C529- 
C52B- 
C52E- 
C530- 
C532- 
C535- 
C538- 
C53B- 
C53E- 
C540- 
C542- 
C544- 
C546- 
C548- 
C54A- 


C54D- 
C54F- 
C552- 
C555- 
C556- 
C557- 
C558- 
C559- 
C55B- 
C55E- 
C561- 
C563- 
C565- 
C567- 


A9  06 
20  8D  C5 
A2  05 
A9  00 
8D  01  AO 
20  4D  C5 
EE  01  AO 
20  4D  C5 
A5  25 
29  3F 
85  25 
A5  24 
29  3F 
85  24 
4C  BO  C5 


AO  03 
AD  01 
EE  01 
4A 
4A 
4A 
4A 

95  22 
AD  01 
EE  01 
29  FO 
15  22 
95  22 
CA 


0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
OO83 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 


SETIME 


LDX  #11 

JSR  0GETSET 

CMP  #*02 

BNE  READCLOCK-3 

LDX  #l05 

LDA   PARN+2 

ORA   #$80 

JSR  gSETBYTE 

LDA  PARN 

JSR  SSETBYTE 

LDA  #00 

BEQ  HEADCLOCK-6 


;GET  TIME 


;HOOR 

;SET  24  HOUR  FORMAT 

JMUTOTE 

; SECONDS 


;SET  THE  YEAR, MONTH, AND  DAI  TO  THE  CLOCK 
; WITHOUT  THE  HOLD. 


SETDATE 


LDX  #5 

JSR   §GETSET 

CMP  #$03 

BNE  READCLOCK-3 

LDX  #12 

LDA   PARN 

JSR   gSETBYTE 

LDA   PARN+4 

JSR   eSETBTTE 

LDA   PARN+2 

JSR   §SETBTTE 

JSR  SETDPCLOCK 


;TEAR 
; MONTH 
;DAI 


; SETIME  AND  SETDATE  FALL  THRU  TO  READCLOCK  HERE 
; SUBROUTINE  TO  READ  TIME  FROM  CLOCK 
;AND  STORE  IT  IN  6  BYTES  AT  DAY 


READCLOCK 


LDA  #$06 
JSR  §STOPCLOCK 
LDX  #5 
LDA  #0 
STA  VIA1+1 
JSR  gREAD3 
INC  VIA1+1 
JSR  SREAD3 
LDA  «DAY+3 
AND  #$3F 
STA  •DAY+3 
LDA  »DAY+2 
AND  #$3F 
STA  «DAY+2 
JMP  SETUPCLOCK 


;HOLD  &   READ 


;READ  HH:MM:SS 
;SKIP  DAY  OF  WK 
;READ  YY:MM:DD 
; CLEAR  24  HR  FLAG 


; CLEAR  LEAPYEAR  FLAG 


;READ   3  BYTES  OF  DATA  FROM  THE  CLOCK 
;AND  PUT   IT  AT  DAY.X  TO  DAY.X-2 
;LEAVE  X  =  X-3. 

SREAD3 


LDY  #$03 
LDA  VIA1  +  1 
INC  VIA1+1 
LSR  A 
LSR  A 
LSR  A 
LSR  A 

STA  »DAY,X 
LDA  VIA1+1 
INC  VIA1+1 
AND  #J11110000 
ORA  »DAY,X 
STA  »DAI,X 
DEX 


;NEXT  NIBBLE 


[LOWER  NIBBLE 

;NEXT  NIBBLE 
;HIGH  NIBBLE 
; MERGE  NIBBLES 
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C568-  88 
C569-  BO  E4 
C56B-  60 


C56C- 
C56D- 
C56F- 
C572- 
C573- 
C574- 
C575- 
C576- 
C577- 
C579- 
C57B- 
C57E- 
C581- 
C583- 
C585- 
C588- 
C58B- 
C58C- 


18 

29  FO 

20  77  C5 

68 

OA 

OA 

OA 

OA 

86  22 

05  22 

8D  01  AO 

AD  00  AO 

29  FE 

8D  00  AO 

09  01 

8D  00  AO 

CA 

60 


C58D- 
C58E- 
C590- 
C592- 
C595- 
C598- 
C59A- 
C59C- 
C59F- 
C5A1- 
C5A3- 
C5A5- 
C5A7- 
C5AA- 
C5AC- 
C5AD- 
C5AF- 


l8 
85  22 

A9  10 

8D  OE  AO 

AD  00  AO 

09  07 

45  22 

8D  00  AO 

A9  02 

24  22 

DO  05 

A9  FF 

8D  0' 

A2  1E 

CA 

DO  FD 

60 


AO 


C5B0- 
C5B3- 
C5B5- 
C5B7- 
C5BA- 
C5BD- 
C5BF- 
C5C2- 
C5C4- 
C5C7- 
C5CA- 
C5CC- 
C5CF- 
C5D1- 
C5DJ^ 


AD  00  AO 
29  F8 
09  05 
8D  00  AO 
AD  02  AO 
09  07 
8D  02  AO 
A9  OF 
8D  01  AO 
8D  03  AO 
A9  10 
8D  OD 
A9  90 
8D  OE  AO 
60 


AO 


0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

013* 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149  SSTOPCLOCE 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171  SETUPCLOCK 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 


;DSE  AS  TMP  LOC 


; WRITE  PULSE 

;WRITE 

;CLR  WRITE(INV) 


DEY 

BNE   §READ3+2 

RTS 

;SET  1  BYTE  TO  CLOCK  AT  LOCATION  IN  X 
;AND  X-1. 

SSETBYTE 

PHA 

AND  #$F0 

JSR  =+8 

PLA 

ASL  A 

ASL  A 

ASL  A 

ASL  A 

STX  »DAY 

ORA  *DAY 

STA  VIA1+1 

LDA  VIA1 

AND  #$11111110 

STA  VIA1 

ORA  #$00000001 

STA  VIA1 

DEX 

RTS 

;THIS  ROUTINES  DISABLES  THE  INTERRUPTS 
;AND  SETS  THE  OUTPUT  LINES  AS  SET  IN  A 
;2  PB  IS  SET  TO  OUTPUT   IF  WRITE  FLAG  IS  SET 


SET 

STA  »DAY 
LDA  #$10 
STA  7IA1+14 
LDA  VIA1 
ORA  #$07 
EOR  »DAY 
STA  VIA1 
LDA  #$02 
BIT  »DAY 
BNE  =+6 
LDA  #$FF 
STA  VIA 1+3 
LDX  #30 
DEX 

BNE  =-2 
RTS 


;DISABLE  CB1    INT 
; DISABLE  INTERRUPTS 

;SET  STATUS  BITS 
;INV  NEW  STAT  BITS 

;READ  BIT 
;SET  FOR  READ7 

;ALL  OUTPUTS 

; DELAY  FOR  HOLD  SETUP 


; ROUTINE  TO  SETUP  THE  VIA'S  FOR  THE  CLOCK 
; SUBROUTINES 


LDA  VIA1 
AND  #$11111000 
ORA  #$00000101 
STA  VIA1 
LDA  VIA 1+2 
ORA  #$00000111 
STA  VIA 1+2 
LDA  #$0F 
STA  VIA1+1 
STA  VIA1+3 
LDA  #$10 
STA  VIA1+13 
LDA  #$90 
STA  VIA1+14 
RTS 


;CLR  STAT 

;SET  NEG  STAT 

;SET  READ  ONLY  MODE 

;STAT  BITS  OUT 

;SET  FOR   INTERRUPTS 

;DATA  DIRECTION   REG. 

;CB1    INT 

; RESET  DJTERUPTS 

;CB1  INT 

; ENABLE  INTERRUPTS 


; PRINT  A  MESSAGE  ON  DISPLAY  &  GET  PARAMETERS 
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C5D5-  20  63  C4 
C5D8-  08 
C5D9-  58 
C5DA-  20  20  82 
C5DD-  A9  04 
C5DF-  20  8D  C5 
C5E2-  AD  49  A6 
C5E5-  28 
C5E6-  60 


0190  §GETSET 

0191 

0192 

0193 

019* 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0056 


JSR  LEDMESG 

PHP 

CLI 

JSB  FARM 

LDA  #$04 

JSR  gSTOPCLOCK 

LDA  PARNR 

PLP 

RTS 


j DISPLAY  MESSAGE  ON  LEDS 

;SAVE  FLAGS 

; ENABLE  INTER  DURING  ENTRY 

;GET  TIME  DATA 

;SET  FOR  READ 

; NUMBER  OF  PARMS 
[RESTORE  FLAGS 


;PDT  "L3CLOCK.S" 

.FI  "L3ANALOG1 .5" 


OAEC     35E4-40DO     L3ANAL0G1 .S 


C5E7- 
C5E9- 
C5EB- 
C5EC- 
C5EF- 
C5F2- 
C5F4- 
C5F6- 
C5F7- 
C5FA- 
C5FD- 
C600- 
C602- 
C605- 
C607- 
C609- 
C60A- 
C60C- 
C60F- 


29  3F 

85  3D 

AA 

20  10  C6 

8E  00   A8 

B5  40 

29  OF 

B9   52  C9 
8D  01   AS 
AD   OC  A8 
09  02 
8D   OC  A8 
29  FD 
A2   32 
CA 

DO  FD 
8D   OC  A8 
60 


C610-  AD  OC  A8 
C613-  29  FO 
C615-  09  OD 
C617-  8D  OC  A8 
C61A-  A9  OF 
C61C-  8D  03  A8 
C61F-  AD  02  A8 
C622-  09  3F 
C624-  8D  02  A8 
C627-  60 


C628- 

C62A- 
C62C- 
C62E- 


A2  73 
A9  02 


3C 


C62F-  FO  07 
C631-  C6  3C 
C633-  2C  OD  A8 
C636-  FO  F4 

C638-  A2  10 
C63A-  20  A4  C6 


0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 


;P0T  "L3ANAL0G1 .S" 

;THIS  SUBROUTINE  STARTS  A/D  CONVERSION.   IT  ASSUMES 
;THAT  THE  CHANNEL  NUMBER  WAS  IN  THE  ACCUMULATOR 
; BEFORE  CALLING  THIS  ROUTINE. 

STRTCONV 


AND  #$3F 

STA  *CHANN 

TAX 

JSR  SETUPA/D 

STX  VIA2+0 

LDA  »GAIN,X 

AND  #$0F 

TAY 

LDA  OUTGAIN.Y 

STA  VIA2+1 

LDA  VIA2+12 

ORA  #$02 

STA  VIA2+12 

AND  #$FD 

LDX  #50 

DEX 

BNE  =-Z 

STA  VIA2+12 

RTS 

;THIS  ROUTINE  SETS  UP  I/O 

SETUPA/D 

LDA  VIA2+12 
AND  #*F0 
ORA  #$0D 
STA  VIA2+12 
LDA  #$0F 
STA  VIA2+3 
LDA  VIA2+2 
ORA  #$3F 
STA  VIA2+2 
RTS 


;64  CHANNEL  LIMIT 
; STORE  CHAN# 


;OUT  CHAN*  TO  MUX  &  ETC 

;CLR  HIGH  BITS 

;L00K  UP  CODE  FOR  GAIN 

;SET  GAIN 

; START  CONVERSION 


;250  MICROSEC  DELAY 


; RETURN 
FOR  A/D  ROUTINE 


;SET  CAI  TO  POS  EDGE 
;SET  FOR  LOW  OUTPUT 
;SET  PA  I/O 


;SET  PB  I/O 


;THIS  ROUTINE  INPUTS  A/D  DATA  AND  PUTS  IT  IN  THE  PROPER 
; FLOATING  PNT  LOCATIONS. 


INPA/D 


eNOA/D 


LDX  #115 
LDA  #$02 
INC  »ADEHR 
DEX 

BEQ  SNOA/D 
DEC  "ADERR 
BIT  VIA2+13 
BEQ  INPA/D+4 

LDX  #$10 
JSR  glNPNIB 


;2MS  MAX  WAIT  TIME 
; ERROR  BYTE 

;N0  ERROR  RESET 


;GET  MS  NIBBLE 
;GET  HIGH  NIBBLE 
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C63D- 

35 

C2 

0057 
0058 

STA 

•FPMSW 

C63F- 
C641- 

A2 

08 

LDX 

#$08 

20 

A4  C6 

0059 

JSR 

SINPNIB 

C644- 

HA 

0060 

LSR 

A 

C645- 

ha 

0061 

LSR 

A 

C646- 

1(A 

0062 

LSR 

A 

C647- 
C648- 

HA 

0063 
0064 

LSR 

A 

05 

C2 

ORA 

•FPMSW 

C64A- 

85 

C2 

0065 

STA 

•FPMSW 

C64C- 

85 

3F 

0066 

STA 

•HEXAD+1 

C64E- 

A2 

00 

0067 
0068 

LDX 

#$00 

C650- 

20 

A4  C6 

JSR 

0INPNIB 

C653- 

85 

C1 

0069 

STA 

•FPNSW 

C655- 

85 

3E 

0070 

STA 

•HEXAD 

0071  ; CHECK  FOP  OVERFLOW 

C657- 

A6 

IS 

0072 

LDX 

•CHANN 

C659-  B5 

0073 
0074 

LDA 

•GAIN.X 

C65B- 

FO 

1B 

BEQ 

§ADOK 

C65D- 

18 

19 

0075 

BMI 

eADOK 

C65F- 

CO 

0076 

LDY 

•FPLSW 

C661- 

CO 

FO 

0077 
0078 

CPY 

#$F0 

C663- 

FO 

06 

BEQ 

=+7 

C665- 

AH 

BF 

0079 
0080 

LDY 

•FPLSWE 

C667- 

CO 

00 

CPY 

#$00 
gADOK 

C669-  DO 

OD 

0081 

BNE 

C66B-  D6 

40 

0082 

DEC 

•GAIN.X 

C66D- 

FO 

02 

0083 
0084 

BEQ 

•GAIN.X 

C66F- 

D6 

40 

DEC 

C671- 

8A 

0085 

TXA 

C672- 

20 

E7  C5 
28  C6 

0086 

JSR 

STRTCONV 

C675- 

4C 

0087 

0088  SADOK 

JMP 

INPA/D 

C678- 

29 

OF 

0089 

AND 

#$0F 
#$FF 

C67A- 

«9  FF 

0090 

EOR 

C67C- 

85 

C3 

0091 

STA 

•FPACCE 

C67E- 
C680- 

E6 

ti 

0092 

INC 

•FPACCE 

A9 

0093 
0094 

LDA 

#$00 
•FPLSW 

C682- 

85 

CO 

STA 

C684- 

85 

BF 

0095 

STA 

•FPLSWE 

C686- 

20 

71  CC 

0096 

JSR 

FPNORM 

C689- 

A6 

8 

0097 
0098 

LDX 

•CHANN 

C68B- 

B5 

LDA 

•GAIN.X 

C68D- 

If 

14 

0099 

BMI 

0SKIPGAIN 

C68F- 

C2 

0100 

LDA 

•FPMSW 

C691- 

FO 

OC 

0101 

BEQ 

0SKIPGAIN- 

C693- 

A5 

C3 

0102 

LDA 

•FPACCE 

C695- 

49  FF 

0103 

0104 

EOR 

#$FF 

C697- 

10 

02 

BPL 

=+3 

C699-  A9 

00 

0105 

LDA 

#$00 
#$OA+1 

C69B- 

C9 

OB 

0106 

CMP 

C69D- 

90 

02 

0107 
0108 

BCC 

=+3 

C69F- 
C6A1- 

A9 

OA 

LDA 

#$OA 
•GAIN.X 

95 

40 

0109 

STA 

0110  SSKIPGAIN 

C6A3- 

60 

0111 
0112 

RTS 

0113  JINPDT  A  NIBBLE  FROM  THE 

0114 

0115  SINPNIB 

C6A4- 

A9 

38 

0116 

LDA 

VIA2+0 

C6A6- 

8D 

00  A8 

0117 
0118 

STA 

C6A9- 

8E 

00  A8 

STX 

VIA2+0 

C6AC- 

AD 

01  A8 

0119 

LDA 

VIA2+1 

C6AF- 

11 

FO 

0120 

AND 

#$F0 

C6B1- 

0121 

TAY 

C6B2- 

EO 

10 

0122 

CPX 

#$10 

C6B4- 

DO 

08 

0123 

0124 

BNE 

#$8o 

•FPLSW 

C6B6- 

29 

80 

EOR 

C6B8- 

85 

CO 

0125 

STA 

C6BA- 

85 

BF 

0126 

STA 

•FPLSWE 

C6BC- 

n 

0127 
0128 

TYA 

C6BD- 

RTS 

80 


;GET  NEXT  SIG  NIBBLE 
;GET  2ND  NIBBLE 


;KEEP  HEX  CONVERSION 
;GET  3RD  NIBBLE 


;GET  CHAN# 

;LOOK  UP  GAIN  FOR  CHAN* 
jGAIN  AT  LOWEST  LEVEL 
;DONT  CHANGE  GAIN  IF  MINDS 
; CHECK  FOR  OVERFLOW 


; CHECK  FOR  UNDERFLOW 

;OUT  OF  RANGE,  REDUCE  GAIN 

;LDA  WITH  CHANNEL   # 


;CLR  ANY  HIGH  BITS 
;2'S  COMPLEMENT 
;PUT   IN   EXPONENT 


j4  BYTES  FOR  FPNORM 


; CHECK  GAIN 

;IS  CONVERSION  ZERO? 
;THEN  MAXGAIN 

:  COMPLEMENT 

;TEST  FOR  GAIN  TOO  LOW 

;GAIN  LIMIT 

;  UPPER  GAIN  LIMIT 


ADC  WITH  THE  ADDRESS  IN  X 

;DESLECT   INPUT  LINES 

;GET  DATA 
;SAVE  DATA 

;TMP  LOCS  FOR  OVFL  CHK 


-4 
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C6BE- 
C6C0- 
C6C2- 
C6C3- 
C6C5- 


C6C8- 
C6CB- 
C6CD- 
C6CF- 
C6D1- 
C6D3- 
C6D5- 
C6D7- 
C6D9- 
C6DC- 


25  CO 
85  CO 
98 

05  BF 
1)C  BA  C6 


20  E7 
A9  50 
85  CA 
A9  00 
85  Cf 


C5 


85 

59 
85 

20 

4C  26 


C8 

Sb 

28  C6 
"  CD 


0129 
0130 
0131 
0132 
0133 
013? 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0145 
0145 
0146 
0147 
0148 
0149 
0150 
0057 


AND  »FPLSW 

STA  *FPLSW 

TYA 

ORA  «FPLSWE 

JMP  =-11 

J THIS  ROUTINE  POTS  TOGETHER  THE 
;INPA/D,  FPNORM,  &   MULT  BI  5  ROUTINES. 

INPA/DV 


JSR  STRTCONV 

LDA  #$50 

STA  «F0PMSW 

LDA  #$00 

STA  *F0PNSW 

STA  »FOPLSW 

LDA  #403 

STA  •FOPEXP 

JSR  INPA/D 

JMP  FPMOLT 

;PUT  "L3ANAL0G1.S" 

.FI  "L3ANAL0G2.S" 


; START  A/D   CONV 
;PDT  5   IN  FPOP 


;PUT  3  IN  EXPONENT 


0820  35E4-3E04  L3ANALOG2.S 


0010  ;PUT  "L3ANALOG2.S" 

0020 

0030  ;SUM  ADC  CHANNELS  INTO  THE  DATA  AREA,  DON'T  DIVIDE 

0040  ;BY  5.  THAT  IS  DONE  ONCE  LATER  IN  AVERAGE. 

0050 


0060  SDMADC 

C6DF-  A5  OB 

0070 
0080 

C6E1-  DO  01 

C6E3-  60 
C6E4-  A9  00 

0090 

0100 

C6E6-  20  E7 

C5 

0110 
0120 

C6E9-  A5  11 

C6EB-  85  19 

C6ED-  A5  12 

C6EF-  85  1A 

0130  gS0MADC2 
0140 

C6F1-  A9  C8 

C6F3-  85  BA 

C6F5-  A9  00 

C6F7-  85  BB 

0150 

C6F9-  A5  19 
C6FB-  85  B8 

C6FD-  A5  1A 

C6FF-  85  B9 

C701-  A2  04 

0160 

C703-  20  OA 
C706-  20  28 

CC 

0170 
0180 

C6 

C709-  E6  3D 

0190 

C70B-  A5  3D 
C70D-  C5  OB 

0200 

0210 

C70F-  BO  03 

0220 

C711-  20  E7 

C5 

0230 
0240 

C714-  20  B1 

CC 

0250 

C717-  A9  CO 

C719-  85  B8 

LDA  «ADCHAN 

BNE  i+2 

RTS 

LDA  #0 

JSR  STRTCONV 

LDZZ  (WORKPNT  ADADDR) 


LDZI   (TOPNT  FOPLSW) 


LDZZ  (FMPNT  WORKPNT) 


; CHECK  FOR  CHANNELS 


[STARTS  FIRST  CHANNEL  CONV 


LDX  #4 

JSR  MOVIND 

JSR  INPA/D 

INC  «CHANN 

LDA  »CHANN 

CMP  »ADCHAN 

BCS  =+4 

JSR  STRTCONV 

JSR  FPADD 

LDZI  (FMPNT  FPLSW) 


;GET  SDM 

;GET  NUMBER  WITHOUT  MULT  B 


;END  OF  CHANNELS 

; START  NEXT  CONV  WHILE  PRO 
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C72C- 

18 

C72D- 

A9  04 

C72F- 

65  19 

C731- 

85  19 

C733- 

90  02 

C735- 

E6  1A 

C737- 

A5  3D 

C739- 
C73B- 

C5  OB 

90  B4 

C73D- 

C71B-  A9  00 
C71D-  85  B9 

0260 

C71F-  A5  19 
C721-  85  BA 
C723-  A5  1A 
C725-  85  BB 

C727-  A2  04     0270 

C729-  20  0A  CC  0280 

0290 


0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 


LDZZ  (TOPNT  WORKPNT) 


LDX  #4 

JSR  MOVIND 

INCD  (WORKPNT  4) 


LDA  »CHANN 
CMP  »ADCHAN 
BCC  SS0MADC2 
RTS 

IFN  AVGAHALOG 


;SAVE  SUM 


;IS  THERE  ANOTHER  CONV 


; AVERAGE  THE  ADC  DATA.  ALSO  MULTIPLY  BY 
;  5  TO  CONVERT  TO  VOLTS 


AVGADC 


SAVGADC2 


LDA  #$50 

STA  «FOPMSW 

LDA  #3 

STA  "FOPEXP 

LDY  #HEADER+6 

LDA  (DATASTART).Y 

STA  »FPNSW 

INY 

LDA  (DATASTART).Y 

STA  *FPMSW 

LDA  #15 

STA  «FPACCE 

LDA  #0 

STA  *FPLSW 

STA  »F0PLSW 

STA  »F0PNSW 

JSR  FPNOHM 

JSR  FPDIV 

LDZI  (FMPNT  FPLSW) 

LDZI  (TOPNT  DIVTMP) 

LDX  #4 

JSR  MOVIND 

LDA  #0 

STA  »CHANN 

LDZZ  (WORKPNT  ADADDR) 

LDZZ  (FMPNT  WORKPNT) 

LDZI  (TOPNT  FPLSW) 

LDX  #4 

JSR  MOVIND 

LDZI  (FMPNT  DIVTMP) 

LDZI    (TOPNT  FOPLSW 

LDX  #4 

JSR  MOVIND 

JSR  FPMULT 

LDZI  (FMPNT  FPLSW) 

LDZZ  (TOPNT  WORKPNT) 

LDX  #4 

JSR  MOVIND 

INCD  (WORKPNT  4) 


;5  VOLTS 


;CODNT  TO  DIVIDE  BY 


;ITS  LESS  THAN  32000 
;15  BITS  WITHOUT  SIGN 


; NORMALIZE  CODNT  TO  FP 


; SCALE  NDMBER 


;SAVE  AVERAGE 
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0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
9??? 


INC  «CHANN 
LDA  »CHANN 
CMP  *ADCHAN 
BCC  SAVGADC2 
RTS 
<•* 


;LAST  NUMBER 


;THTS   ROUTINE  CALLS  A/DV  &  FPOUT  TO  DISPLAY  THE  A/D 
; CONVERSION  ON   THE  CHANNEL   IN  «DISBUF+1 .      THE  VALUE 
;IS  MULTIPLIED  BY    1000  TO  DISPLAY  THE  NUMBER   IN 
;MILLIVOLTS. 

ADDISP 

; CHANNEL  # 
; CHECK 


;GET  CONVERSION 


C73E-  A5 
C7A0-  C5 

1D 

09*0 

LDA  «DISCNT+1 

OB 

0950 

CMP  «ADCHAN 

C742-  90 

02 

0960 

BCC  =+3 

C744-  38 
C745-  60 

0970 
0980 

SEC 

RTS 

C746-  20 

C8 

C6 

0990 

JSR  INPA/DV 

C749-  A9 

CDA 

1000 

LDA  tiJD 
STA  «F0PMSW 

C74B-  85 

1010 

C74D-  A9 

00 

1020 

LDA  #$00 

C74F-  85 

u 

1030 
1040 

STA  *F0PNSW 

C751-  85 

STA  *F0PLSW 

C753-  A9 

OA 

1050 

LDA  #40A 
STA  *FOPEXP 

C755-  85 

CB 

1060 

C757-  20 

26 

CD 

1070 
1080 

JSR  FPMULT 

C75A-  A5 

1D 

LDA  «DISCNT+1 

C75C-  20 

80 

C4 

1090 

JSR  BINDEC 

C75F-  20 

FA 

82 

1100 

JSR  OUTBYT 

C762-  20 

8F 

CF 

1110 

JSR  FPDISP 

C765-  18 
C766-  60 

1120 

CLC 

1130 
1140 

RTS 

1150 

;PUT  "L3ANAL0G2.S" 

0058 

.FI  "L3DIGITAL.S" 

; CHANGE  TO  MILLIVOLTS 
; DISPLAY  CHANNEL 


04AF     35E4-3A93     L3DIGITAL.S 


3B  „ 
00  A8 


3B 
3B 


C767-  AD  00  AC 
C76A-  29  BF 
C76C-  85  "' 
C76E-  AD 
C771-  1A 
C772-  29  to 
C77t-  05 
C776-  85 
C778-  60 


C779- 
C77B- 
C77D- 
C77F- 
C781- 
C782- 
C783- 

S7§5" 
C787- 
C789- 
C78A- 
C78C- 
C78E- 
C790- 


A6 

OC 

FO 

FB 

AO 

00 

A5 

3B 

4A 

48 

B1 

13 

69  05 

ll 

13 

B1 

13 

69 

00 

n 

13 

0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 


;PUT   "L3DIGITAL.S" 

;DGREAD  —  READ  DIGITAL  CHANNELS  &  STORE  IN  DGBYTE 
; ASSUME  DDH'S  ARE  SET  RIGHT  FROM  RESET  DEFAULTS. 

DGREAD 


LDA  VIA3 
AND  #$BF 
STA  *DGBYTE 
LDA  VIA2 
LSR  A 
AND  #$40 
ORA  *DGBYTE 
STA  »DGBYTE 
RTS 


;CLR  PB6 


; MERGE  BYTES 

;SAVE  CHANNEL  READINGS 


;DGSAVE  —  SUM  DIGITAL  BITS  TO  THE  LOGGER  STOREAGE. 
DGSAVE 


LDX  «DGCHAN 

BEQ  DGSAVE- 1 

LDY  #0 

LDA  »DGBYTE 

LSR  A 

PHA 

LDA  (DGADDR).Y 

ADC  #0 

STA  (DGADDR).Y 

INY 

LDA  (DGADDR),Y 

ADC  #0 

STA  (DGADDR).Y 

INY 


;NO  CHANNELS 
;BITS 


J  ADD  BIT 
;ADD  CARRY 


RETURN 


;ADD  CARRY  FROM  LOW  BYTE 
;ADD  CARRY 
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C791-  68 
C792-  CA 
C793-  DO  EC 
C795-  60 


C796- 
C798- 
C79A- 
C79C- 
C79D- 
C79E- 
C7A1- 
C7A3- 
C7A6- 
C7A9- 
C7AC- 
C7AE- 
C7B1- 
C7B4- 
C7B6- 
C7B9- 
C7BC- 
C7BD- 
C7BE- 
C7C0- 
C7C2- 
C7C4- 
C7C7- 
C7CA- 
C7CB- 
C7CC- 
C7CE- 


A5  1D 
C5  OC 

18 01 

AA 

20  44  8A 
A9  5E 
8D  40  A6 
AD  45  A6 
8D  41  A6 
A9  00 
8D  42  A6 
8D  1(5  A6 
A9  3F 
8D  43  A6 
20  67  C7 
4A 
CA 

10  FC 
BO  09 
A9  71 
'   45  A6 
44  A6 


DGDISP 


0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

OO63 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0059 

0060 

0061 

0062 


103C  35E4-4620  L3POLSE.S 


PLA 

DEX 

BNE  DGSAVE+8 

RTS 

; DGDISP  —  DISPLAY  DIGITAL 
;ON  OR  OFF  ON  THE  DISPLAY. 


8D 
8D 
60 
18 
A9  54 
DO  F7 


LDA  «DISCNT+1 

CMP  »DGCHAN 

BCC  =+2 

RTS 

TAX 

JSR  OUTNIB 

LDA  #$5E 

STA  DISBUF 

LDA  RMDIG 

STA  DISBUF+1 

LDA  #0 

STA  DISBUF+2 

STA  DISBUF+5 

LDA  #$3F 

STA  DISBUF+3 

JSR  DGREAD 

LSR  A 

DEX 

BPL  =-3 

BCS  =+10 

LDA  #$71 

STA  DISBUF+5 

STA  DISBOF+4 

RTS 

CLC 

LDA  #$54 

BNE  =-8 


;GO  DO  NEXT 
CHANNELS  EITHER 


; CHANNEL  # 
[LIMIT 


;PUT  "L3DIGITAL.S" 


.BA  4C800 
.MC  $1000 
.FI  "L3PDLSE.S" 


; OUTPUT  CHAN  # 
; OUTPUT  "D" 


; CHANNEL  #  CONVERTED 
; SPACE 


; OUTPUT  "0" 

jGET  CURRENT  BITS 


; CARRY  IS  BIT  HERE 
; OUTPUT  "F" 


; OUTPUT  "N" 


; SECOND  EPROM 


C800-  A5  OD 
C802-  FO  11 
C804-  20  BF  C8 
C807-  20  16  C8 
C80A-  DO  09 
C80C-  20  70  C8 
C80F-  20  97  C8 
C812-  20  D3  C8 
C815-  60 


C816-  A2  08 
C818-  86  BA 
C81A-  E8 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 


;PUT  "L3PULSE.S" 

; THESE  ROUTINES  ARE  THE  PULSE  COUNTING  PACKAGE 
;F0R  THE  LOGGER 

;PLSAVE  —  CONTROL  PULSE  SAVING  IF  THERE  IS 
; PULSE  CNTRS  FOR  DISPLAY  AND  DATA  LOGGING 

PLSAVE 


LDA  «PLCHAN 
BEQ  =+18 
JSR  MRKSEC 
JSR  PLCHK 
BNE  =+10 
JSR  PLSAVEDIS 
JSR  PLSAVCNT 
JSR  PLTIMESAV 
RTS 


;SKIP  IF  THERE  IS  NONE 
;MARK  TIME  FOR  PULSES 
;READ  PULSES 
;BAD  COUNT.  DONT  ADD 
;SAVE  FOR  DISPLAY 
;SAVE  FOR  DATA  LOGGING 
;SAVE  CNTER  TIME 


; PLCHK  —  READS  THE  PULSE  CHANNELS  INTO  MEMORY 
;AND  RESETS  THE  TIMERS  TO  DO  PULSE  COUNTING 
;N=1  IF  RESULTS  VALID  OTHERWISE  N=0 


PLCHK 


LDX  #8 
STX  *T0PNT 
INX 


; REGISTER  OF  VIA 
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86  B8 
A2  AS 
86  BB 


86 

B9 

A2 

00 

20 

38  C8 

85 

2C 

A2 

AC 

86 

BB 

86 

B9 

A2 

02 

20 

38  C8 

05 

2C 

60 

C81B- 
C81D- 
C81F- 
C821- 
C823- 
C825- 
C828- 
C82A- 
C82C- 
C82E- 
C830- 
C832- 
C835- 
C837- 


C838-  AO  03 
C83A-  B1  BA 
C83C-  48 
C83D-  09  20 
C83F-  91  BA 
C841-  68 
C842-  49  20 
C844-  AO  05 
C846-  11  BA 
20 


C848- 
C84A- 
C84B- 
C84E- 


20  56  C8 
A9  FF 


C850-  91  BA 
C852-  91  B8 
C854-  68 
C855-  60 


C856-  AO  00 
C858-  20  63  C8 
C85B-  B1  BA 
C85D-  49  FF 
C85F-  D5  2F 
C861-  FO  OC 

C863-  B1  BA 
C865-  49  FF 
C867-  95  2F 
C869-  B1  B8 
C86B-  49  FF 
C86D-  95  30 
C86F-  60 


C870- 

A5 

27 

C872- 

DO 

OD 

C874-  A2 

03 

C876- 

AO 

00 

C878- 

B5 

37 

C87A- 

B 

33 

C87C- 

37 

C87E- 

CA 

;HIGH  COUNTER 


;  CHANNEL   OFFSET 

;GET  PULSE  DATA  &  RESET 

;SAVE  ERROR  STATUS 

; SECOND   POLSE  CNTER 


STX  »FMPNT 
LDX  #H,VIA2 

stx  «t6pnt+i 
stx  «fmpnt+1 

LDX  #0 
JSR  GOPULSE 
STA  »PLTMP 
LDX  #H,VIA3 
STX  »TOPNT+1 
STX  »FMPNT+1 
LDX  #2 
JSR  GOPULSE 
ORA  »PLTMP 
RTS 

; GOPULSE  ~  READ  THE  PULSE  COUNTERS  AND  STORE 
;THE  VALUES  IN  PLSEC  OFFSET  BY  PLTMP.  IF  THE 
[COUNTER  OVER  RAN  THE  RANGE  OR  WAS  NOT  SETUP 
[RETURN  WITH  A  !=  0  ELSE  RETURN  A=0 

GOPULSE 


0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071  READPL 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

OO83 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091  PLSAVEDIS 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 


LDY  #3 

LDA  ( TOPNT ),Y 

PHA 

ORA  #$20 

STA  ( TOPNT ),Y 

PLA 

EOR  #$20 

LDY  #5 

ORA  ( TOPNT ),I 

AND  #$20 

PHA 

JSR  READPL 

LDA  #$FF 

STA  ( TOPNT ),Y 

STA  (FMPNT  ,? 

PLA 

RTS 


[OFFSET  FROM  T2 
;AUX  CNTL  BYTE 

;SET  T2  BIT 

; TIMER  INPUT  ON  PB6 

;WAS  T2  BIT  SET 

;0R   INT  FLG  SET 
;ONLY  T2  BITS 

;GET  READINGS  ON   PULSE 

; RESTART  CNTERS 


; READPL  ~  HEAD  PULSE  COUNTER.      IF  COUNT  HAS 
; CHANGED  FROM  READING  LOW  BYTE  TO  HIGH  BYTE 
; REREAD  THE  COUNT. 


LDY  #0 
JSR  =+11 
LDA    (TOPNT) ,Y 
EOR  #$FF 
CMP  •PLSEC, X 
BEQ  =+13 

LDA    (TOPNT ),Y 
EOR  #$FF 
STA  * PLSEC, X 
LDA    (FMPNT    ,Y 
EOR  #$FF 
STA  *PLSEC+1,X 
RTS 


;READ  CNTR 

;LOW   BYTE  CHANGED? 

; INVERT  # 

;SAVE  AS  LAST  READING 

; BRANCH  IN  NOT 

;READ  LOW  BYTE  FIRST 
; INVERT 

;SAVE  LOW  BYTE 
;READ  HIGH  BYTE 

;SAVE  HIGH  BYTE 


(PLSAVEDIS  ~  SAVE  PULSE  COUNT  FOR  DISPLAY 
,-SAVE  THE  SECOND  COUNT,  PREVIOUS  MINUITE  CNT, 
;AND  KEEP  THE  SUM  FOR  THE  CURRENT  MINUITE. 


LDA  »DAY+5 
BNE  =+14 
LDX  #3 
LDY  #0 

LDA  «PLSUM,X 
STA  «PLMIN,X 
STY  *PLSUM,X 
DEX 


;SEC  =0 

;T0  LDX 

;MOVE  SUM  TO  MIN  CNT 

;ZEHO  SUM 
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C87F- 
C881- 
C883- 
C885- 
C886- 
C888- 
C88A- 
C88B- 
C88D- 
C88F- 
C891- 
C892- 
C894- 
C896- 


10 

F7 

A2 

00 

18 

B5 

2F 

75 

37 

95 

37 

E8 

B5 

2F 

75 

37 

| 

37 

EO 

014 

DO 

ED 

60 

C897- 
C899- 
C89B- 

cs  ge- 
es 9E- 
C8A0- 
C8A2- 
C8A3- 
C8A4- 
C8A6- 
C8A8- 
C8AA- 
C8AB- 
C8AC- 
C8AE- 
C8B0- 
C8B2- 
C8B3- 
C8B5- 
C8B7- 
C8B9- 
C8BA- 
C8BC- 
C8BE- 


AO  02 
A2  00 
18 

B1    17 
75  2F 
91    17 
E8 
C8 

B1  17 
75  2F 

Is17 

C8 

B1  17 

69  00 

91  17 
C8 

B1  17 

69  00 

22  17 
C8 

EO   OH 

DO  DD 

60 


C8BF-  F8 
C8C0-  A5  27 
C8C2-  AA 
C8C3-  38 
C8C4-  E5  2D 
C8C6-  BO   02 
C8C8-  69  60 
C8CA-  86    2D 
C8CC-  D8 
C8CD-  20  70  C4 
C8D0-  85  2E 
C8D2-  60 


C8D3-  AO  00 
C8D5-   18 
C8D6-  A5  2E 
C8D8-  71    17 
C8DA-   91    17 


0100  BPL  =-8 

0101  LDX  #0 

0102  CLC 

0103  LDA  "PLSEC.X 

0104  ADC  »PLSUM,X 

0105  STA  »PLSOM,X 

0106  INX 

0107  LDA  »PLSEC,X 

0108  ADC  »PLSUM,X 

0109  STA  »PLSUM,X 

0110  INX 

0111  CPX  #4 

0112  BNE  =-18 

0113  RTS 
0114 

0115  JPLSAVCNT  ~  SAVE  PDLSE  CNT  IN  THE  DATA  SUMMING 

0116  .-LOCATIONS.  SAVE  AS  A  4BYTE  INTEGER  LOW  BYTE  FIRST 


;T0  LDA 


;SUM  SECONDS  FOR  MIN 


J16BIT  SUM  ONLY 

;TWO  CNTRS 
;T0  CLC 


0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
D144 


PLSAVCNT 


LDT  #2 

LDX  #0 

CLC 

LDA  (PLADDR).Y 

ADC  »PLSEC,X 

STA  (PLADDR).Y 

INX 

INY 

LDA  (PLADDR).X 

ADC  «PLSEC.X 

STA  (PLADDR).I 

INX 

INY 

LDA  (PLADDR).Y 

ADC  #0 

STA  (PLADDR).Y 

INY 

LDA  (PLADDR).Y 

ADC  tO 

STA  (PLADDR).Y 

INY 

CPX  #4 

BNE  PLSAVCNT+4 

RTS 


; FIRST  2  BYTES  CLOCK  CNT 


;ADD  CARRY  TO  3RD  BYTE 


; CARRY  FROM  3RD  BYTE 
;ADD  CARRY  TO  HIGH  BYTE 


;2  CNTRS 


;MRKSEC  — 


CALCUATE  ELASPED  TIME  IN  SECONDS  FOR 

0145  ;THE  PDLSE  CNTRS.   60  SECONDS  IS  THE  MAX  ELASPED 

0146  ;TIME.  SAVE  THE  CDRRENT  TIME  FOR  NEXT  TIME. 
0147 
0148 
0149 
0150 
0151 
0152 


MRKSEC 


0153 
3154 


SED 

LDA  *DAY+5 

TAX 

SEC 

SBC  «PLLSTSEC 

BCS  =+3 

ADC  #$60 

STX  'PLLSTSEC 

CLD 

JSR  BINARY 

STA  OPLINCSEC 

RTS 


;C0PY  TO  X  FOR  LATER 


0 

015 

015i 

015' 

015i 

0159 

0160 

0161 

0162  ,-PLTIMESAV  ~  ADD  SECOND  COUNT  TO  THE  TIME 

0163  ;COUNTER  AT  THE  FIRST  TWO  BYTES  OF  PULSE  DATA 

0164  ;STOREAGE. 
016" 


; CYCLED  OVER  1  MINUITE 
;SAVE  CURRENT  SEC 

; CONVERT  TO  BINARY 
;SAVE  INCREMENTAL  SEC 


0166 

PLTIMESAV 

0167 
0168 

LDI 

#0 

CLC 

0169 

LDA 

•PLINCSEC 

0170 

ADC 

(PLADDR), 
(PLADDR), 

,Y 

0171 

STA 

J 
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C8DC-  C8 
C8DD-  B1  17 
C8DF-  69  00 
C8E1-  91  17 
C8E3-  60 


C8E4- 
C8E6- 
C8E8- 
C8E9- 
C8EA- 
C8EC- 
C8EE- 
C8F0- 
C8F3- 
C8F5- 
C8F8- 
C8F9- 
C8FA- 
C8FC- 
C8FE- 
C900- 
C902- 
C904- 
C906- 
C908- 
C90A- 
C90C- 
C90F- 
C912- 
C913- 


A6 


A5  0D 
DO   02 

60 

A5  1D 
C9  01 
BO  F9 
20  FA  82 

KB 

OA 
AA 

B5  2F 
85  CO 
B5  30 
85  C1 
A9  00 
85  BF 
85  C2 
A9  17 
85  C3 
20  71 
20  8F 
18 
60 


0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 

0203 

0204 
0205 
0206 
0207 
0208 
0209 
0210 
0063 


INY 

LDA  (PLADDR).Y 

ADC  #0 

ST A  (PLADDR).Y 

RTS 


;ADD  CARRY  TO  HIGH  BYTE 


;FLDISP  ~  CALLED  FROM  SHOW  TO  DISPLAY  PULSE 
;DATA  ON  THE  DISPLAY.  PO  &  P1  ARE  SECOND  COUNTS, 
;P2  &  P3  ARE  MINUITE  COUNTS  RESPECT. 
JWRITTEN  FOR  0  OR  2  CHANNELS  ONLY 

PLDISP 

LDA  "PLCHAN 

BNE  =+3 

SEC 

RTS 

LDA  »DISCNT+1 

CMP  #4 

BCS  =-6 

JSR  OUTBYT 

LDX  #473 

STX  DISBUF+4 

ASL  A 

TAX 

LDA  »PLSEC,X 

STA  *FPLSW 

LDA  «PLSEC+1,X 

STA  «FPNSW 

LDA  #0 

STA  »FPLSWE 

STA  «FPMSW 

LDA  #23 

STA  «FPACCE 

JSR  FPNORM 

JSR  FPDISP 

CLC 

RTS 

;PUT  "L3PULSE.S" 

.FI  "L3DATA.D" 


;0VER  RANGE 

; OUTPUT  CHAN  # 

; OUTPUT  "P" 

; BEFORE  CHANNEL  # 

;MULT  BY  2 


;LOW  BYTE 

;HIGH  BYTE  OF  CNT 


; STORE  EXPONENT 

; ADJUST  NUMBER  TO  FP 

; DISPLAY  VALUE 


0507      35E4-3AEB     L3DATA.D 


C914- 
C917- 
C91A- 
C91D- 
C920- 
C923- 

C926 

C929 
C92C 
C92F> 
C932- 
C935- 
C938- 
C93B- 
C93E- 
C941- 


01  02  04 
08  15  30 
01  02  03 
06  12  00 
OC  06  00 
OB  05  05 


-  00  5E  77 

78  79  53 
00  78  06 
54  79  53 

79  50  50 
5C  50  00 
00  3?  ~ 
77  54 
00  6D 
86  06 


0001 
0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 

0011 

0012 


;PUT  "L3DATA.D" 

; CONSTANT  DEFINITIONS 


76 

1 

80 


00 

001 
001 

0017 

0018 

0019 

0020 

0021 
0022 


HEADER 
LOGGER ID 
MAXSAVE 
MINSAVE 

LOGSM 

LOGHR 

L0GTAB1 
L0GTAB2 

LEDMESSAGES 


.DE  8 
,DE  4C7FF 
.DE  12 
.DE  06 

.BY  1  2  4  8  $15  $30 

.BY  1  2  3  6  $12  0 

.BY  12  6  0 

.BY  LOGHR-L0GSM+5  5  5 


; ADDRESS  OF  ID  NUMBER 

;  MAXIMUM  SAVE  FREQUENCY  (1 

; MINIMUM  SAVE  FREQUENCY  (1 


.BY  $00  $5E  $77  $78  $79  $53  ;DATE7 
.BY  $00  $78  $06  $54  $79  $53  ;TIME? 
.BY  $79  $50  $50  $5C  $50  $00  ; ERROR 
.BY  $00  $39  $76  $77  $54  $53  ;CHAN? 
.BY  $00  $6D  $6E  $86  $06  $80  ;SY1.1. 


JMPTAB 
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C944-  AO  C4 
C946-  3E  C7 
C948-  96  C7 
C94A-  E4  C8 
C94C-  FF  FF 
C94E-  D2  C3 
C950-  FF  FF 


C952-  00  01 
C955-  05  06 
C958-  09  0A 
C95B-  OD  OE 


C95D-  5A  A5 
C95F-  00  02 
C961-  07  02 
C963-  00  02 
C965-  20  08 


C967-  00  00 
C969-  00  02 
C96B-  00  04 
C96D-  00  06 
C96F-  00  08 
C971-  00  OA 
C973-  00  OC 
C975-  02  OE 


END  OF  MAE  PASS I 


0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
,   0031 

04  0032 

08 

OC 

0033 

0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0064 


NUCHAN 
OUTGAIN 


.SE  CLKDISP 
.SE  ADDISP 
.SE  DGDISP 
.SE  PLDISP 
.SE  $FFFF 
.SE  GENDISP 
.SE  $FFFF 
.DE  =-JMPTAB 

.BY  0  1  4  5  6  8  9  10  12  13  14 


; INITIAL  DATA  FOR  ZERO  PAGE  AERA 


INITDATA 


ICOONT 
TIMES 


.BY  $5A  $A5 

.SE  LOWMEM 

.SE  L0WMEM+HEADER-1 

.SE  LOWMEM 

.BY  $20  *08 

.DE  =- INITDATA- 1 


.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 

;P0T  "L3DATA.D" 
.EN 


LABEL  FILE:   

«ADOK  =C678 
eCALCMXREC  =C279 
SG10  =C461 
§G4  =C3FC 
«37  =C432 
gGENBCD  =C402 
§INITA  =C1A0 
«K2  =C37B 
SK5  =C399 
0LOGAA  =C049 
SLOOP 1  =C31F 
gNOA/D  =C638 
gSETBYTE  =C56C 
gSTOPCLOCK  =C58D 
ACCESS  =8B86 
ADDISP  =C73E 
AVGANALOG  =0000 
BINDEC  =C480 
CALCDATAEND  =C27E 
CALCMXREC  =C263 
CLKDISP  =C4A0 
CNTR  =00BC 
CYCLE  =001B 
DAY  =0022 
DGADDR  =0013 
DGDISP  =C796 
DISBUF  =A640 
ENDINT  =C07D 
FMPNT  =O0B8 
FOPLSW  =00C8 
FPACCE  =00C3 
FPDISP  =CF8F 


SCALCDATAEND1  =C2A1 

SJATEDISP  =C4BB 

§G2  =C3EA 

§GS  =C40A 

§G8  =C43D 

gGENOUT  =C405 

0INPNIB  =C6A4 

«C3  =C380 

SK6  =C3A6 

gLOGBB  =C053 

§L00P2  =C323 

§READ3  =C54D 

gSHOWLOOP  =C306 

eSUMADC2  =C6F1 

ADADDR  =0011 

ADERR  =003C 

AVGTIME  =000F 

BLKMOV  =8740 
CALCLABEL  =C145 
CALCSAVE  =C2AF 
CLRDATA  =C101 
CONFIG  =89A5 
DATAEND  =0004 
DECMEM  =CC1E 
DGBYTE  =003B 
DGREAD  =C767 
DISCNT  =00 1C 
EVERYSEC  =C08B 
FOLSWE  =00C7 
FOPMSW  =00CA 
FPADD  =CCB1 
FPDIV  =CDC9 


; VERIFY 

;MEMEND 

; DATAEND 

;DATASTART 

;DISVEL 

;  1     SEC 

:  1     SEC 

;  1     SEC 

:  3.75  SEC 

;  1     SEC 

:15    SEC 

;  1    sec 

:  1     MIN 

;  1    sec 

:  3-75  MIN 

;  1    SEC 

:15     MIN 

;  1    SEC 

:  1     HR 

;  3.75  sec 

:  3     HR 

9CALCDATAEND2  =C2AE 
gG1  =C3E1 
SG3  =C3F3 
§G6  =C427 
SG9  =C455 
gGETSET  =C5D5 
§K1  =C374 
§K4  =C389 
0KEY2  =C369 
SLOGCC  =C057 
gMOVEDATA  =C0EE 
0SERROR  =C3AF 
gSKIPGAIN  =C6A3 
gTIMEDISP  =C4CE 
ADCHAN  =000B 
AVERAGE  =C0AC 
BINARY  =C470 
CALCADDR  =C236 
CALCLENGTH  =C215 
CHANN  =003D 
CLRMEM  =CC00 
CDRVAL  =0021 
DATASTART  =0006 
DECODESW  =C1E8 
DGCHAN  =000C 
DGSAVE  =C779 
DISVEL  =0008 
FILL3  =8718 
FOPEXP  =00CB 
FOPNSW  =00C9 
FPBASE  =CC00 
FPLSW  =0OC0 
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FPLSWE  =00BF 
FPNOPM  =CC71 
FPSDB  =CD1C 
GOMON  =C3BB 
HEADER  =0008 
ID  =A64E 
INCMEM  =CC15 
INITDATA  =C95D 
INPA/DV  =C6C8 
INTVEC  =A678 
IOLSW  =00D7 
IOSTH  =00DB 
IOSTK3  =00DE 
KEY  =C335 
L2  =84D3 
LCNT2  =0020 
LENGTH  =0029 
LOGSM  =C914 
LOOP  =C315 
MAXSAVE  =000C 
MCAND2  =00C6 
MONITOR  =8003 
MOVEDATA  =C0BE 
MRKSEC  =C8BF 
NDMREC  =002B 
OUTCHR  =8A47 
OUTXAH  =82F4 
PARNR  =A649 
PLCHK  =C816 
PLLSTSEC  =002D 
PLSAVE  =C800 
PLSDM  =0037 
READCLOCK  =C529 
RESTART  =8000 
SAVE  =C0B0 
SAVTIME  =0010 
SETDATE  =C509 
SETUPCLOCK  =C5B0 
SIGNS  =00BE 
STORE  =C127 
SWITCH  =000A 
TIMES  =C967 
TPLSW  =00E0 
TSIGN  =00BD 
VIA1  =A000 
WORKO  =00CC 
W0RK3  =00CF 
WORKS  =00D2 
ZEROMEM  =C1B8 
//0000,C977,1177 


FPMSW  =00C2 
FPNSW  =00C1 
GAIN  =0040 
GOPDLSE  =C838 
HEXAD  =003E 
INBYTE  =81D9 
INEXPS  =00D5 
INMTAS  =00D4 
INPRDI  =00D6 
IOEXP  =00DA 
IOMSW  =00D9 
I0STR1  =00DC 
JMPTAB  =C944 
KEYCNT  =00 1E 
LABEL  =0028 
LEDMESG  =C463 
LOGGERID  =C7FF 
LOGTAB1  =C920 
LOWMEM  =0200 
MCANDO  =00C4 
MEMEND  =0002 
MOVE  =C0B7 
MOVEHEADER  =C173 
NACCESS  =8B9C 
OOTBUF  =00E5 
ODTGAIN  =C952 
PARM  =8220 
PLADDR  =0017 
PLDISP  =C8E4 
PLMIN  =0033 
PLSAVEDIS  =C870 
PLTIMESAV  =C8D3 
READPL  =C856 
RMDIG  =A645 
SAVE2  =87EA 
SCAND  =8906 
SETIME  =C4EC 
SHOW  =C2CF 
SMPTIME  =000E 
STRTCONV  =C5E7 
TAPDEL  =A630 
TOPNT  =00BA 
TPMSW  =O0E2 
VECSW  =8BB7 
VIA2  =A800 
WORK1  =OOCD 
W0RK4  =00D0 
W0RK7  =00D3 


FPMULT  =CD26 
FPODT  =CEB8 
GENDISP  =C3D2 
GOVEC  =A659 
ICODNT  =0009 
INCHR  =8A1B 
INIT  =C185 
INPA/D  =C628 
INTERRUPT  =C019 
IOEXPD  =00DF 
IONSW  =00D8 
I0STR2  =00DD 
JMPVEC  =0015 
KSCONF  =89A3 
LCNT1  =001F 
LEDMESSAGES  =C926 
LOGHR  =C91A 
L0GTAB2  =C923 
MAIN  =C000 
MCAND1  =00C5 
MINSAVE  =0006 
MOVECLOCK  =C166 
MOVIND  =CC0A 
NUCHAN  =000E 
OOTBYT  =82FA 
OUTNIB  =8A44 
PARN  =A64A 
PLCHAN  =000D 
PLINCSEC  =002E 
PLSAVCNT  =C897 
PLSEC  =002F 
PLTMP  =002C 
RESALL  =81C4 
SAMPLE  =C095 
SAVER  =8188 
SDBYT  =A651 
SETUPA/D  =C610 
SHOWDISP  =C312 
SPACE  =8342 
SUMADC  =C6DF 
TEMPI  =00E4 
TPEXP  =00E3 
TPNSW  =00E1 
VERIFY  =0000 
VIA3  =ACOO 
W0RK2  =OOCE 
W0RK5  =00D1 
WORKPNT  =0019 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0021 
0022 


;PUT  "L3FP.C" 
.IS 

iSYM-1  DATA  LOGGER  3.0  FP  ROUTINES 

;APRIL  1981 

;BY  MICHAEL  D.  SCHWARZ 

;AG  ENGG  EXTENSION 

; KANSAS  STATE  UNIVERSITY 

.CE 
.CT 
.OS 


BA 
MC 


.PR   "ASSEMBLY  OF  ONLY  FP  ROUTINES" 

.PR   "PUT  FPDISK  IN  DRIVE  2" 

.PR  "ENTER  BEGINNING  ADDRESS" 

.IN  BA 

0020  .IN  MC 

.FI  "SYM.L" 


0289  3250-34D9  SYM.L 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 

0023 

0024 


;PUT  "SYM.L" 
(MONITOR  ADDRESSES 


ACCESS 

BLKMOV 

CONFIG 

FILL3 

INBYTE 

INCHR 

KSCONF 

L2 

MONITOR 

NACCESS 

OUTBYT 

OUTCHR 

OUTNIB 

OUTXAH 

PARM 

RES ALL 

RESTART 

SAVE2 

SAVER 

SCAND 

SPACE 

VECSW 

DISBUF 

GOVEC 

ID 

INTVEC 

PARN 

PARNR 

RMDIG 

SDBYT 

TAPDEL 

VIA1 
VIA2 
VIA3 


.DE  $8B86 
.DE  :;8740 
.DE  ::89A5 
.DE  ::8718 
.DE  II81D9 
.DE  ::8A1B 
.DE  ::89A3 
.DE  ::84D3 
.DE  ::8003 
.DE  48B9C 
.DE  $82FA 
.DE  :;8A47 
.DE  ::8A44 
.DE  :;82F4 
.DE  ::8220 
.DE  ;;81C4 
.DE  :  18000 
.DE  :;87EA 
.DE  :;8188 
.DE  ::8906 
.DE  ::8342 
.DE  ?8BB7 

.DE  4A640 
.DE  :;A659 
.DE  :;A64E 
.DE  ::A678 
.DE  :iA64A 
.DE  SA649 
.DE  ::A645 
.DE  :;A651 
.DE  JA630 

.DE  tAOOO 
.DE  &A800 
.DE  $kC00 


;PUT  "SYM.L" 


.BA  |B8 

.FI  D26  "FPVARS.B" 


02BD  3250-350D  FPVARS.B 


0001  ;PUT  "FPVARS.B" 
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00B8- 
00BA- 
00BC- 
00BD- 
00BE- 
OOBF- 
00C0- 
00C1- 
00C2- 
00C3- 
00C4- 
00C5- 
00C6- 
00C7- 
00C8- 
00C9- 
00CA- 
00CB- 
OOCC- 
OOCD- 
OOCE- 
OOCF- 
OODO- 
0OD1- 
00D2- 
OOD3- 

00D4- 
0OD5- 
0OD6- 
00D7- 
00D8- 
OOD9- 
OODA- 
OODB- 
OODC- 
OODD- 
OODE- 
OODF- 
OOEO- 
0OE1- 
00E2- 
OOE3- 
OOE4- 
00E5- 


0002 
0003 
0005 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0025 
0026 
0027 
0028 


; VARIABLES  FOR  MATH  ROUTINES 


FMPNT 

TOPNT 

CNTR 

TSIGN 

SIGNS 

FPLSWE 

FPLSW 

FPNSW 

FPMSW 

FPACCE 

MCANDO 

MCAND1 

MCAND2 

FOLSHE 

FOPLSW 

FOPNSW 

FOPMSW 

FOPEXP 

WORKO 

W0RK1 

W0RK2 

W0RK3 

W0RK4 

W0RK5 

W0RK6 

W0RK7 

iNMTAS 

INEXPS 

INPRDI 

IOLSW 

IONSW 

IOMSW 

IOEXP 

IOSTR 

I0STR1 

I0STR2 

IOSTR 3 

IOEXPD 

TPLSW 

TPNSW 

TPMSW 

TPEXP 

TEMPI 

OUTBUF 


.DS  2 
.DS  2 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
VARIABLES  FOR  I/O  ROUTINES 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  16 


;PUT  "FPVARS.B" 


.BA  BA 
.MC  MC 
.FI  D26  "GPSUBS.S" 


0883  3250-3AD3  GPSUBS.S 


CCOO-  A9  00 
CC02-  A8 
CC03-  91  BA 
CC05-  C8 
CC06-  CA 
CC07-  DO  FA 
CC09-  60 


0001 
0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 


;PUT  "GPSUBS.S" 

; CLEAR  MEMORY.  A.X.Y.  CLEARS  X  BYTES 
;0F  MEMORY  TO  ZERO  AT  »T0PNT. 

CLRMEM 


LDA  #$00 

TAY 

STA  (TOPNT), Y 

INY 

DEX 

BNE  CLRMEM+3 

RTS 


; CLEAR  MEM  LOC 
;NOT  ZERO,  CONT  CLH 
;MOVE  MEMORY.  A,X,Y.  MOVE  X  BYTES 
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CCOA-  AO  00 
CC0C-  B1  B8 
CCOE-  91  BA 
CC10-  C8 
CC11-  CA 
CC12-  DO  F8 
CC14-  60 


CC15-  F6  00 
CC17-  DO  04 
CC19-  E8 
CC1A-  88 
CC1B-  DO  F8 
CC1D-  60 


CC1E-  38 
CC1F-  B5  00 
CC21-  E9  01 
CC23-  95  00 
CC25-  BO  04 
CC27-  E8 
CC28-  88 
CC29-  DO  F3 
CC2B-  60 


CC2C-  18 

CC2D-  36  00 
CC2F-  E8 
CC30-  88 
CC31-  DO  FA 
CC33-  60 


CC34-  18 
CC35-  90  06 

CC37-  36  00 
CC39-  08 
CC3A-  76  00 
CC3C-  28 

"00 


CC3D-  76 
CC3F-  tl 
CC40- 


CC41- 

CC43- 


DO  FA 
60 


0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

006  3 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

OO73 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

OO83 

0084 

0085 

0086 

0087 


;FROM  »FMPNT  TO  »TOPNT.  LIMIT=256. 

MOVIND 

LDY  #$00 

LDA  (FMPNTl.Y 

STA  [TOPHI ),I 

ure 

DEX 

BNE  MOVIND+2 

RTS 

; INCREMENT  MEMORY.  X,Y.  INCREMENT  A 
;MULTI  PREC  NUMBER  Y  BYTES  LONG  AT  X 
;Z  FLAG  SET  IF  RESULT  =  0 

INCMEM 

INC  «$00,X 

BNE  INCMEM+8 

INX 

DEY 

BNE  INCMEM 

RTS 

;DECREMENT  MEMORY.  A.X.Y.  DEC  MULTI 
;PREC  NUMBER  OF  Y  BYTES  AT  X. 
JCARRY  CLR  IF  RESULT=-1 

DECMEM 

SEC 

LDA  «*00,X 

SBC  #*01 

STA  «$00.X 

BCS  DECMEM+13 

INX 

DEY 

BNE  DECMEM 

RTS 

; ROTATE  LEFT.  X.Y.  ROTATE  MULTI  PREC 
; NUMBER  LEFT  1  BIT.  X  IS  LOC  OF  LSB 
;  AND  Y  IS  #  OF  BYTES. 


ROTATL 
ROTL 


CLC 

ROL  »$00,X 

INX 

DEY 

BNE  ROTL 

RTS 


; ROTATE  OR  ARITH  SHIFT  RIGHT.  X,Y. 
; ROTATE  BYTE  RIGHT  1  BIT.  Y  IS  i   OF 
; BYTES,  X  IS  PNTR  TO  MSBYTE 

ROTATR 


; ROTATE  HI  ZERO  BIT 


ARSHR 


CLC 

BCC  ARSHR+6 

ROL  »$00,X 

PHP 

ROR  »$00,X 

PLP 

ROR  «$00,X 

DEX 

DEY 

BNE  ARSHR+6 

RTS 


; SHIFT  IN  ZERO  BIT 
; SHIFT  IN  SIGN  BIT 


;SIGN  BIT  IN  CARRY 
; ROTATE  THE  BYTE 


;COMPLEMENT  MEMORY  (1  OR  2).  A.X.Y. 
; COMPLEMENT  MULTI  PREC  BYTE  OF  I 
;BYTES,  AT  LOC  X. 
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CC44-  18 
CM  5-  90  01 

CC47-  38 
CMS-  A  9  FF 
CC4A-  55  00 
CMC-  69  00 
CC4E-  95  00 
CC50-  E8 
CC51-  88 
CC52-  DO  F4 
CC54-  60 


CC55-  A0  00 
CC57-  18 
CC58-  B1  BA 
CC5A-  71  B8 
CC5C-  91  BA 
CC5E-  C8 
CC5F-  CA 
CC60-  DO  F6 
CC62-  60 


CC63-  A0  00 
CC65-  38 
CC66-  B1  BA 
CC68-  F1  B8 
CC6A-  91  BA 
CC6C-  C8 
CC6D-  CA 
CC6E-  DO  F6 
CC70-  60 


0088 
0089 
0090 
0091 
0092 
0093 
0095 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 

0113 

0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 

0123 

0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0029 


C0MPL1 
COHPLM 


CLC 

BCC  COMPLM+1 

SEC 

LDA  #$FF 

EOF,  «l00,X 

ADC  ttOO 

STA  «$00,X 

BIX 

DEY 

BNE  COMPLM+1 

RTS 


; ADDER.  A.X.I.  ADD  MULTI  PREC  NUMS 
;IN  *TOPNT  AND  »FMPNT.  STORE  RESULT 
J  IN  OTOPNT. 

ADDER 

LDT  #*00 

CLC 

LDA  (TOPNT),Y 

ADC  (FMPNTJ.Y 

STA  (T0PNT),Y 

INY 

DEX 

BNE  ADDER+3 

RTS 

JSUBBER.  A,X,Y.  SUBTRACTS  NUM  IN 
;»FMPNT  FROM  "T0PNT  AND  LEAVES  RESULT 
;IN  »T0PNT. 

SUBBER 

LDY  #$00 

SEC 

LDA  (TOPNT).Y 

SBC  (FMPNT  ,Y 

STA  (TOPNT),Y 

INY 

DEX 

BNE  SUBBER+3 

RTS 

COMPARE  MEMORY.  A.Y.  Y  IS  LENGTH 
OF  NUMS,  «FMPNT  &  »T0PNT  ARE  STRING 
PNTRS.   CMPS  LAST  BYTE  FIRST  ASSUME 
NUMBERS. 

TYA 

BEQ  CMPMEM+7  ;END  OF  DATA 
CMPMEM 
DEY 

LDA  ( FMPNTJ.Y 

CMP  (TOPNT).Y 

BEQ  CMPMEM-3  ;IF  EQUAL  CONTINUE 

RTS  ;C  4  Z  FLGS  SET 

PUT  "GPSUBS.S" 

.FI  D26  "FPNORM.S" 


; CLEAR  CARRY  FOR  1 'S  COMP 
;SET  CARRY  FOR  2'S  COMP 


032F      3250-357F     FPNORM.S 


CC71-  A5  C2 


0001  ;PUT  "FPNORM.S" 
0002 

0003  ;FL0ATING  POINT  NORMALIZATION.  A.X.Y. 

0004  ; NORMALIZES  FPNUM  IN  FPACC  WITH  4 

0005  ; BYTES  IN  THE  MANTISSA. 
0006 

0007  FPNORM 

0008  LDA  *FPMSW 
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CC73- 

85 

BD 

0009 

STA  »TSIGN 

CC75- 

10 

§1 

0010 

BPL  0ACZERT 

CC77- 

AO 

0011 

LOT  #*04 
LDX  #FPLSWE 

CC79- 

A2 

BF 

0012 

CC7B- 

20 

47 

CC 

0013 

0014 

JSR  COMPLM 

SACZERT 

CC7E- 
CC80- 

A5 

C2 

0015 

LDA  »FPMSW 

05 

C1 

0016 

ORA  *FPNSW 

CC82- 

05 

CO 

0017 

0018 

ORA  "FPLSW 

CC84- 

05 

BF 

ORA  «FPLSWE 

CC86- 

DO 

03 

0019 

BNE  gACNONZ 

CC88- 

85 

C3 

0020 
0021 

SNORMEX 

STA  *FPACCE 

CC8A- 

60 

0022 
0023 
0024 

gACNONZ 

RTS 

CC8B- 

24 

C2 

BIT  »FPMSW 

CC8D- 

30 

OE 

0025 

BMI  §MINUS1 

CC8F- 

70 

15 

0026 

BVS  WCCSET 

CC91- 

A2 

BF 

0027 
0028 

LDX  #FPLSWE 

CC93- 

AO 

04 

LDY  #$04 
JSR  ROTATL 

CC95- 

20 

2C 

CC 

0029 

CC98- 

C6 

£3 

0030 

DEC  »FPACCE 

CC9A- 

4C 

8B  C(. 

0031 

JMP  gACNONZ 

0032 

SMINUS1 

CC9D- 

A2 

C2 

0033 
0034 

LDX  #FPMSW 

CC9F- 

AO 

03 

LDY  #3 

CCA1- 

20 

34 

CC 

0035 

JSR  ROTATR 

CCA4- 

E6 

C3 

0036 
0037 
0038 

SACCSET 

INC  «FPACCE 

CCA6- 

A5 

BD 

LDA  »TSIGN 

CCA8- 

10 

EO 

OO39 
0040 

BPL  9NORMEX 

CCAA- 

AO 

03 

LDY  #$03 

CCAC- 

A2 

CO 

0041 

LDX  #FPLSM 

CCAE- 

4C 

47 

CC 

0042 
0043 
0044 

JMP  COMPLM 

;PDT  "FPNO.f; 

0030 

.FT  D26  "FPADDSDB.S" 
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;SAVE  SIGN  BIT 
;COMPLMENT  IF  NEGATIVE 

; CHECK  FOR  FPACC  ==  0 

;FPACC=0  CLR  EXP 
;EXIT  RESDLT  =  0 


;IF  SO,  JUSTIFIED 
; SHIFT  LEFT  1  BIT 


; ADJUST  EXP 

; CONTINUE  ROTATING 

;THE  NUMBER   IS  -1.0000000 


;IS  SIGN  POS 
;YES,  RETURN 
;NO,    COMPLEMENT  AGAIN 


060A     3250-385A     FPADDSUB.S 


CCB1- 
CCB3- 

CCB5- 
CCB7- 
CCB9- 
CCBB- 
CCBC- 
CCBE- 

CCBF- 
CCC1- 
CCC3- 


A5  C2 
DO  OA 

A2  03 
B5  C8 
95  CO 
CA 

10  F9 
60 

A5  CA 
DO  01 
60 


CCC4 
CCC5> 
CCC7 
CCC9' 
CCCB-  90  El 

CCCD-  60 


A5   CB 

E5   C3 
50  03 


CCCE- 
CCDO- 
CCD1- 
CCD3- 


FO  1D 
A8 


OE 

18 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 


;PUT  "FPADDSUB.S" 

J FLOATING  POINT  ADD.  A.X.Y.  ADDS  NUM 
;IN  FPACC  TO  FPOP  AND  LEAVES  RESULT 
;IN  FPACC. 


FPADD 


gMOVOP 


SNONZAC 


0CKEQEX 


gCKRET 
9NOVFL 


LDA 
BNE 

LDX 
LDA 
STA 
DEX 

BPL 
RTS 

LDA 

BNE 
RTS 

SEC 
LDA 
SBC 
BVC 
BCC 

RTS 

BEQ 

TAY 
BMI 
CMP 


•FPMSW 
gNONZAC 

f3 
•FOPLSW.X 

•FPLSW.X 


•FOPMSW 
§CKEQEX 


•FOPEXP 
•FPACCE 
gNOVFL 
gMOVOP 


eSHACOP 

gSKPNEG 
#$18 


; FPACC  =  0? 

;MOVE  FOP  TO  FPACC  I  RET 

;SEE  IF  FPOP  =   0 


;GET  EXP  DIFF 
;DIFF  >  128 
; RESULT  =  FPOP 

; RESULT  =  FPACC 

;PUT  DIFF  IN  Y 

; FPACC  >.  SHIFT  FPOP 

;DIFF  >  $18 
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CCD5-  10 

DE 

0033 
0034 

BPL 

gMOVOP 

; RESULT  IS  FPOP 

§MORACC 

CCD7-  A2 

C3 

0035 

LDX 

#FPACCE 

;SET  PNTR  TO  FPACC  EXP 

CCD9-  20 

OF 

CD 

0036 

JSR 

SHLOOP 

; SHIFT  FPACC  » 

CCDC-  88 

0037 
0038 

DEY 

;DEC  DIFF  CNTR 

CCDD-  DO  F8 

BNE 

gMORACC 

CCDF-  FO 

OC 

0039 
0040 

BEQ 

eSHACOP 

eSKPNEG 

CCE1-  C9 

E8 

0041 

CMP 

#$00-$l8 
gCKRET 

;DIFF  >  $18 

CCE3-  30 

E8 

0042 

BMI 

; RESULT  =  FPACC 

0043 
0044 

gSHIFTO 

CCE5-  A2 

CB 

LDX 

#FOPEXP 

;SET  PNTR  TO  FPOP  EXP 

CCE7-  20 

OF 

CD 

0045 

JSR 

SHLOOP 

; SHIFT  FPOP  RIGHT 

CCEA-  C8 

0046 

INY 

;INC  DIFF  CNTR 

CCEB-  DO  F! 

0047 
0048 

BNE 

3SHIFT0 

SSHACOP 

CCED-  A9 

00 

0049 

LDA 

#$00 
•FPLSWE 

; PREPARE  ADDITION 

CCEF-  85 

BF 

0050 

STA 

CCF1-  85 

C7 

0051 

STA 

•FOLSWE 

CCF3-  A2 

tt 

0052 

LDX 

#FPACCE 

; COMPENSATE  FOR  OVFL 

CCF5-  20 

CD 

0053 
0054 

JSR 

SHLOOP 

CCF8-  A2 

CB 

LDX 

#FOPEXP 

CCFA-  20 

OF 

CD 

0055 

JSR 

SHLOOP 

CCFD-  18 

0056 

CLC 

;ADD  BYTES 

CCFE-  AO 

04 

0057 
0058 

LDY 

#4 

;4  BYTES 

CDOO-  A2 

00 

LDX 

#0 

CD02-  B5 

C7 

0059 

LDA 

•FOLSWE, X 

CD04-  75 

BF 

0060 

ADC 

•FPLSWE, X 

CD06-  95 

BF 

0061 

STA 

•FPLSWE, X 

CD08-  E8 

0062 

INX 

CD09-  88 

0063 
0064 

DEY 

CDOA-  DO 

F6 

BNE 

=-9 

CDOC-  4C 

71 

CC 

0065 
0066 
0067 
0068 

JMP 

FPNORM 

[NORMALIZE  RESULT 

SHLOOP 

CDOF-  F6 

00 

INC 

•$00, X 

;INC  EXP 

CD11-  CA 

0069 

DEX 

;DEC  PNTR  TO  MSB 

CD 12-  98 
CD  13-  1)8 

0070 

TYA 

;SAVE  DIFF 

0071 

PHA 

CD14-  AO 

04 

0072 

LDY 

#$04 

CD16-  20 

37 

CC 

0073 
0074 

JSR 

ARSHR 

;ARITH  SHIFT  RIGHT 

CD19-  68 

PLA 

CD1A-  A8 

0075 

TAY 

; RESTORE  IN  Y 

CD1B-  60 

0076 
0077 
0078 

RTS 

;  FLOATING 

SUBTRAC:. 

.  SUBTRACTS 

0079 
0080 

jFPOP  FROM  FPACC  BY  TAKING  THE  NEGATIVE 

;0F  FPOP  i 

!ND  ADDING. 

0081 

0082 

FPSUB 

CD1C-  A2 

CO 

0083 
0084 

LDX 

#FPLSW 

;SET  PNTR  TO  FPOP 

CD1E-  AO 

03 

LDY 

#$03 
COMPLM 

CD20-  20 

47 

CC 

0085 

JSR 

; NEGATE 

CD23-  4C 

B1 

CC 

0086 
0087 
0088 

JMP 

FPADD 

;ADD  THE  VALUES 

jPDT  "FPADDSOB. 

S" 

0031 

.FI 

D26  "FPMUL. 

S" 

OAFE  3250-3D4E 

FPMOL.S 

0001 

;PUT  "FPMOL.S" 

0002 

; FLOATING 

POINT 

'  MULTIPLY. 

A.X.Y. 

0003 
0004 

; MULTIPLY 

NDMBER  IN  FPACC 

TO  FPOP 

;AND  LEAVES  V.  : 

RESULT  IN 

FPACC 

0005 
0006 

FPMULT 

CD26-  20 

92 

CD 

0007 
0008 

JSR 

CKSIGN 

; SETUP  &  CHK  SIGN 

CD29-  A5 
CD2B-  36 

CB 

LDA 

•FOPEXP 

;GET  FPOP  EXP 

0009 

SEC 

:ADD  1  FOR  COMPEN 

CD2C-  65 

S3 

0010 

ADC 

•FPACCE 

;ADD  FPOP  EXP 

CD2E-  85 

C3 

0011 

STA 

•FPACCE 

;SAVE  RESULT  EXP 

CD30-  A9 

17 

0012 

LDA 

#$17 

;SET  BIT  COUNTER 

95 
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CD32-  85  BC 

0013 
0014 

STA  »CNTR 

MULTIP 

CD34-  A2  C2 

0015 

LDX  #FPMSW 

CD36-  AO  03 
CD38-  20  34  CC 
CD3B-  90  OD 

0016 

LDY  #$3 
JSR  ROTATR 

0017 
0018 

BCC  NADOPP 

0019 

ADOPP 

CD3D-  A2  C8 

0020 

LDX  #FOPLSW 

CD3F-  86  B8 
CD41-  A2  DO 

0021 

STX  »FMPNT 

0022 

LDX  #W0RK4 

CD43-  86  BA 

0023 
0024 

STX  »TOPNT 

CD45-  A2  03 

LDX  #$3 
JSR  ADDER 

CD47-  20  55  CC 

0025 

0026 

NADOPP 

CD4A-  A2  D2 

0027 
0028 

LDX  #W0RK6 

CD4C-  AO  04 

LDY  #$4 
JSR  ROTATR 

CD4E-  20  34  CC 

0029 

CD51-  C6  BC 

0030 

DEC  «CNTR 

CD53-  DO  DF 

0031 

BNE  MULTIP 

CD55-  A2  D2 

0032 

LDX  #W0RK6 

CD57-  AO  04 

0033 
0034 

LDY  #44 
JSR  ROTATR 

CD59-  20  34  CC 

CD5C-  A2  CF 

0035 

LDX  #W0RK3 

CD5E-  AO  04 

0036 

LDY  #$4 

CD60-  18 

0037 
0038 

CLC 

CD61-  A9  80 
CD63-  24  D2 

LDA  #$80 

0039 
0040 

BIT  »W0RK6 

CD65-  70  01 
CD67-  4A 

BVS  CKRND 

0041 

LSR  A 

0042 

CKRND 

CD68-  24  CF 

0043 
0044 

BIT  »W0RK3 
BEQ  PREXFR 

CD6A-  FO  OA 

0045 

CROUND 

CD6C-  75  00 

0046 

ADC  «400,X 

CD6E-  95  00 

0047 
0048 

STA  «400,X 

CD70-  Ag  00 
CD72-  E8 

LDA  #$0 

0049 

INX 

CD73-  88 

CD74-  DO  F6 

0050 

DEY 

0051 

BNE  CROUND 

0052 

PREXFR 

CD76-  A2  BF 

0053 
0054 

LDX  #FPLSWE 

CD78-  86  BA 

STX  «TOPNT 

CD7A-  A2  CF 

0055 
0056 

LDX  #W0RK3 
STX  »FMPNT 

CD7C-  86  B8 

CD7E-  A2  04 

0057 
0058 

LDX  #$4 

EXMLDV 

CD80-  20  OA  CC 

0059 

JSR  MOVIND 

CD83-  20  71  CC 
CD86-  A5  BE 

0060 

JSR  FPNORM 

0061 

LDA  "SIGNS 

CD88-  DO  07 

0062 

BNE  MULTEX 

CD8A-  A2  CO 

0063 
0064 

LDX  #FPLSW 

CD8C-  AO  03 

LDY  #$3 

CD8E-  20  47  CC 

0065 

JSR  COMPLM 

0066  I 

OTLTEX 

CD91-  60 

0067 
0068  i 

RTS 

CKSIGN 

CD92-  A9  00 

0069 

LDA  #$0 

CD94-  85  BB 

0070 

STA  »T0PNT+1 

CD96-  85  B9 

0071 

STA  »FMPNT+1 

CD98-  A9  CC 

0072 

LDA  #WORK0 

CD9A-  85  BA 

0073 

STA  «TOPNT 

CD9C-  A2  08 

0074 

LDX  #$8 

CD9E-  20  00  CC 

0075 

JSR  CLRMEM 

CDA1-  A9  C4 

0076 

LDA  #MCAND0 

CDA3-  85  BA 

0077 
0078 

STA  »TOPNT 

CDA5-  A2  04 

LDX  #$4 

CDA7-  20  00  CC 
CD  A  A-  A9  01 

0079 
0080 

JSR  CLRMEM 
LDA  #41 
STA  *SIGNS 

CDAC-  85  BE 

0081 

CDAE-  A5  C2 

0082 

LDA  »FPMSW 

CDBO-  10  09 

OO83 
0084  1 

BPL  OPSGNT 

JEGFPA 

96 


; STORE  BIT  CNTR 

;SET  PNTR   TO  FPACC  MS  BYTE 
;SET   PRECISION  CNTR 
; ROTATE  FPACC  RT 
;CAFRY=0, DON'T  ADD  PARTIAL 

;PNTR  TO  LS  BYTE  OF  MULTIP 

; STORE  POINTER 

;PNTR  TO  LS  BYTE  OF  PARTIA 

; ONLY  3  BYTES  NEED  ADDED 
;ADD  MULTIPLICAND  TO  PARTI 

;SET  PNTR  TO  MS  BYTE  OF  PA 

;SET  PREC  CNTR 

; ROTATE  PART  PROD  RT 

;NOT  0,   CONT  MULTIPLYING 

;ELSE,    SET  PNTR   TO   PART  PR 

J  SET  PREC  CNTR 

;MAKE  ROOM  FOR  ROUNDING 

;SET  PNTR  TO  24TH  BIT  OF  P 

;SET  PREC  CNTR 

; CLEAR  FOR  ADDITION 

;24TH  BIT  TO  RND  IF  >.5 

;IS  MANTIS A  >.5 

;IF  SO  THEN  ROUND 

J24BIT  IS  RT  ONE 

;NEED  RNDING? 
;IF  ZERO  SKIP  RND 

;ADD  WITH  CARRY  TO   PROPAGA 

; STORE  PART  PROD 

;CLR  A  FOR  NEXT  ADD 

; INCREMENT  INDEX  PNTR 

; DECREMENT  CNTR 

;NOT  0,  ADD  NEXT  BYTE 

;SET  PNTR  TO  FPACC  LSW-1 

; STORE   IN  TOPNT 

;SET  PNTR  TO   PART  PROD 

; STORE   BI  FMPNT 

;SET  PREC  CNTR 

;MOVE  PART  PROD  TO  FPACC 

; NORMALIZE  RESULT 

;GET  SIGN  STORAGE 

J  IF  NOT  0,  SIGN  IS  POS 

;ELSE,  SET  PNTR  TO  FPACC  L 

;SET  PREC   CNTR 

; COMPLEMENT  RESULT 

;EXIT  FPMULT 

;SET  PAGE  PORTION  OF   POINT 

; STORE  IN  TOPNT 

; STORE  IN   FMPNT 

;SET   PNTR   TO  WORK  AREA 

;  STORE  IN   TOPNT 

;SET  PREC   CNTR 

;SET  WORK  AREA 

;SET  PNTR   TO  MULTIPLICAND 

; STORE  IN   TOPNT 

;SET  PREC  CNTR 

; CLEAR  MULTIPLICAND  STORAG 

j INITIALIZE  SIGN  INDICATOR 

;BY  STORING  1  IN  SIGNS 

; FETCH  FPACC  MS  BYTE 

; POSITIVE,  CHECK  FPOP 
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CDB2-  C6  BE 
CDB4-  A2  CO 
CDB6-  AO  03 
CDB8-  20  47  CC 

CDBB-  A5  CA 
CDBD-  30  01 
CDBF-  60 

CDCO-  C6  BE 
CDC2-  A2  C8 
CDC4-  AO  03 
CDC6-  4C  47  CC 


0085 

0086 

0087 

0088 

0089  OPSGNT 

0090 

0091 

0092 

0093  NEGOP 


DEC 
LDX 
LDT 
JSP. 

LDA 
BMI 
RTS 


0094 
0095 
0096 
0097 
0098 
0032 


DEC 
LDX 
LDT 
JMP 

;PUT  "FPMUL.S" 
.FI 


•SIGNS 
♦FPLSW 
**3 
COMPLM 

•FOPMSW 
NEGOP 


•SIGNS 
#FOPLSW 


COMPLM 

D26  "FPDIV.S" 


;IF  NEG.  DECREMENT  SIGNS 
;SET  PNTR  TO  FPACC  LS  BYTE 
;SET  PR EC  CNTR 
;MAKE  POS  FOR  MULT 

jIS  FPOP  NEG? 

;TES. COMPLEMENT  VALUE 

;ELSE  RETURN 

; DECREMENT  SIGNS  INDICATOR 
;SET  PNTR   TO  FPOP  LS  BYTE 
;SET  PREC  CNTR 
; COMPLEMENT  FPOP  AND  RETUR 


0919     3250-3B69     FPDIV.S 


CDC9- 
CDCC- 
CDCE- 


20  92  CD 
A5  C2 
FO  22 


CDDO-  A5  CB 

CDD2- 

CDD3- 

CDD5- 

CDD7- 


|5  C3 
85  C3 
E6  C3 


CDD9- 
CDDB- 

CDDD- 
CDEO- 
CDE2- 
CDE4- 
CDE6- 
CDE8- 
CDEA- 
CDEC- 
CDEF- 
CDFO- 

CDF2- 

CDF3- 

CDF4- 
CDF6- 
CDF8- 
CDFB- 
CDFD- 
CDFF- 
CE02- 
CE04- 
CE06- 
CE09- 
CEOB- 
CEOD- 
CEOE- 
CE10- 
CE12- 
CE14- 
CE16- 
CE18- 
CE1A- 
CE1C- 
CE1E- 


A9  17 

85  BC 

20  36  CE 
30  11 
A2  C8 

86  BA 
A2  CC 
86  B8 
A2  03 

20  OA  CC 

38 

BO  02 

60 

18 


A2  DO 

AO  03 

20  2D 

CC 

A2  C8 

AO  03 
20  2C 

CC 

C6  BC 

DO  D7 
20  36 
30  IE 
A3  01 

CE 

65  DO 

85  DO 

A9  00 

65  D1 

85  D1 

A9  00 

65  D2 

85  D2 

10  09 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

OO38 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 


;PUT  "FPDIV.S" 

; FLOATING  POINT  DIVIDE.  A.X.Y. 

[DIVIDES  NUMBER  IN  FPACC  BY  NUMBER 

:IN  FPOP  AND  LEAVES  RESULT  IN  FPACC 

FPDIV 

JSR  CKSIGN 

LDA  *FPMSW 

BEQ  DERROR 


SUB EXP 


SETDCT 


DIVIDE 


DERROR 
NOGO 


QUOROT 


LDA  »FOPEXP 

SEC 

SBC  »FPACCE 

STA  »FPACCE 

INC  »FPACCE 

LDA  #*17 
STA  »CNTR 

JSR  SETSUB 
BMI  NOGO 
LDX  #FOPLSW 
STX  «TOPNT 
LDX  #WORK0 
STX  *FMPNT 
LDX  #$3 
JSR  MOVIND 
SEC 

QUOROT 


BCS 


RTS 
CLC 


LDX 

#W0RK4 

LDY 

#$3 
ROTL 

JSR 

LDX 

#FOPLSW 

LDY 
JSR 

ROTATL 

DEC 

•CNTR 

BNE 

DIVIDE 

JSR 

SETSUB 

BMI 

DVEXIT 

LDA 

#*1 

CLC 

ADC 

•W0RK4 

STA 

•W0RK4 

LDA 

#$0 

ADC 

•WORK 5 

STA 

•W0RK5 

LDA 

#$0 

ADC 

•W0RK6 

STA 

•WORK 6 

BPL 

DVEXIT 

; CLEAR  WORK  AREA 
;CHCK  FOR  DIV  BY  0 
;DIV=0,DIV  BY  0  ERROR 


;FET  DIVIDEND  EXPONENT 

;SET  CARRY 

; SUBTRACT  DIVISOR  EXP 

;SORE  IN  FPACC  EXP 

; COMPENSATE  FOR  DIV  ALGORI 

;SET  BIT  CNTR  STORAGE 


jSUB  DIVISOR  FROM  DIVIDEND 

;SET  PNTR  TO  DIVIDEND 

; STORE  IN  TOPNT 

;SET  PNTR  TO  QUOTIENT 

j STORE  IN  FMPNT 

;SET  PREC  CNTR 

;MOV  QUOT  TO  DIVIDEND 

jSET  CARRY 


DIV  BY  0  IS  0 

NEG  RESULT,  CLEAR  CARRY 

SET  PNTR  TO  QUOTIENT  LS  B 

SET  PREC  CNTR 

ROTATE  CARRY   IN   LSB  OF  QU 

SET  PNTR   TO  DIVID  LS  BYTE 

SET   PREC   CNTR 

ROTATE  DIVIDEND  L 

DEC  BIT  CNTR 

NOT  O.CONT 

DO   AGAIN  FOR   RNDING 

-.NO  RNDING 

ELSE  ADD  1  TO  23RD  BIT 

CLEAR   CARRY  FOR   ADD 

RND  OFF  LS  BYTE  OF  QUOT 

RESTORE  BYTE 

CLEAR  A  NOT  CARRY 

ADD  CARRY 

STOR  RESULT 

CLEAR  A  NOT  CARRY 

ADD  CARRY  TO  MS  BYTE  OF  Q 

STORE  RESULT 
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CE20-  A2  D2 
CE22-  AO  03 
CE24-  20  3*  CC 
CE27-  E6  C3 

CE29-  A2  BF 
CE2B-  86  BA 
CE2D-  A2  CF 
CE2F-  86  B8 
CE31-  A2  04 
CE33-  4C  80  CD 


CE36- 
CE38- 
CE3A- 
CE3C- 
CE3E- 

ce5o- 

CE43- 
CE45- 
CE47- 
CE49- 
CE4B- 
CE4D- 
CE4F- 


A2  CC 
86  BA 
A2  CO 
86  B8 
A2  03 
20  OA  CC 
A2  CC 
86  BA 
A2  C8 
86  B8 
AO  00 
A2  03 
38 


SETSDB 


CE50-  B1  B8 
CE52-  F1  BA 
CE54-  91  BA 
CE56-  C8 
CE57-  CA 
CE58-  DO  F6 
CE5A-  A5  CE 
CE5C-  60 


0055 

0056 

0057 

0058 

0059  DVEXIT 

0060 

0061 

0062 

0063 

0065 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080  S0BR1 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0033 


LDX 

#WORK6 

LDY 

#$3 

JSR 

ROTATR 

INC 

•FPACCE 

LDX 

#FPLSWE 

STX 

•TOPNT 

LDX 

#WORK3 
•FMPNT 

STX 

LDX 
JMP 

EXMLDV 

LDX 

#WORK0 

STX 

•TOPNT 

LDX 

#FPLSW 

STX 

•FMPNT 

LDX 
JSR 

m 

MOVIND 

LDX 

#W0RK0 

STX 

•TOPNT 

LDX 

#FOPLSW 

STX 

•FMPNT 

LDY 

#$0 

LDX 

#3 

SEC 

LDA 

(FMPNT), Y 

SBC 

TOPNT ),Y 

STA 

( TOPNT ),Y 

INY 
ncY 

DE.A 

BNE 

SUBR1 

LDA 

•WORK2 

RTS 

;SET  PREC  CNTR 

; CLEAR  SIGN  BIT  CNTR 

; COMPENSATE  EXP  FOR  ROTATE 

;SET  POINTER  TO  FPACC 

; STORE  IN  TOPNT 

;SET  PNTR  TO  QUOTIENT 

;SOTRE  IN  FMPNT 

;SET  PREC  CNTR 

;MOVE  QUOTIENT  TO  FPACC 

;SET  PNTR 

;SET  PNTR  TO  FPACC 

;SET  PREC  CNTR 

;MOVE  FPACC  TO  WORK  AREA 

;PREP  FOR  SUBT 

; STORE  PNTR  TO  DIVISOR 

;SET  PNTR   TO  FPOP  LS  BYTE- 

; STORE   PNTR   TO  DIVIDEND 

; INITIALIZE   INDEX   PNTR 

;SET  PREC  CNTR 


; FETCH  FPOP 

;SUB  FPACC  BYTE 

; STORE   IN   PLACE  OF  DIVISOR 


;NOT  0  CONT  SUBT 

;SET  SIGN  BIT  RESULT  IN  N 


;PUT  "FPDIV.S" 

.FI  D26  "FPIOSUBS.S" 


04E1      3250-3731     FPIOSUBS.S 


CE5D-  A9  04 
CE5F-  85  CB 
CE61-  A9  50 
CE63-  85  CA 
CE65-  A9  00 
CE67-  85  C9 
CE69-  85  C8 
CE6B-  20  26 
CE6E-  C6  DF 
CE70-  60 

CE71-  A9  FD 
CE73-  85  CB 
CE75-  A9  66 
CE77-  85  CA 
CE79-  85  C9 


CD 


;PUT  "FPIOSUBS.S" 
[SUBROUTINES   USED  BY  THE  FPIN 

FPX10 

LDA  #$04 
STA  «FOPEXP 
LDA  #450 
STA  »FOPMSW 
LDA  #$00 
STA  •FOPNSW 
STA  «FOPLSW 
JSR  FPMULT 
DEC  «IOEXPD 
RTS 


FPD10 


CE7B- 

59  6Z 
85  C8 

CE7D- 

CE7F- 
CE82- 

20  26 

E6  DF 

CE84- 

60 

CE85- 

A9  00 

CE87- 

85  DE 

CE89- 

A2  D7 
86  BA 

CE8B- 

CE8D- 

A2  DB 

CE8F- 

86  B8 

CD 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

001 

001 

001 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026  DECBIN 

0027 

0028 

0029 

0030 

0031 

0032 


LDA  #$FD 
STA  »FOPEXP 
LDA  #$66 
STA  'FOPMSW 
STA  »FOPNSW 
LDA  #*67 
STA  •FOPLSW 
JSR  FPMULT 
INC  «IOEXPD 
RTS 

LDA  #$00 
STA  *IOSTR3 
LDX  #IOLSW 
STX  «TOPNT 
LDX  #I0STR 
STX  »FMPNT 


AND  FPOUT  ROUTINES 


;LOAD  FPOP  WITH  TEN 

;BY  SETTING  EXP  TO  4 

;AND  THE  MANTISSA  TO  $50,$ 


jMULT  FPACC  BY  FPOP 

;DECR  DEC  EXP 

; RETURN  TO  TEST  FOR  COMPLE 

; PLACE  .1  IN  FPOP  BY 
; SETTING  FPOP  EXP  TO  -3 
;AND  LOADING  NANTISSA  WITH 


;MULT  FPACC  BY  FPOP 


; CLEAR  MS  BYTE+1  OF  RESULT 
;SET  PNTR  TO  I/O  STOR 

;SET  PNTR  TO  I/O  STOR 
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CE91-  A2 

04 

0033 

0034 

LDX  #$04 

CE93-  20 
CE96-  A2 

OA 

CC 

JSR  MOVIND 

DB 

0035 

LDX  #IOSTR 

CE98-  A0 

04 

0036 

LDY  #404 
JSR  ROTATL 

CE9A-  20 

2C 

cc 

0037 
0038 

CE9D-  A2 

DB 

LDX  #I0STR 

CE9F-  AO 

04 

0039 

0040 

LDT  #404 
JSR  ROTATL 

CEA1-  20 

2C 

CC 

CEA4-  A2 

11 

0041 

LDX  #IOLSW 

CEA6-  86 

0042 

STX  *FMPNT 

CEA8-  A2 

DB 

0043 
0044 

LDX  #IOSTR 

CEAA-  86 

BA 

STX  »T0PNT 

CEAC-  A2 

04 

0045 

LDX  #404 

CEAE-  20 

55 

CC 

0046 

JSR  ADDER 

CEB1-  A2 

DB 

0047 
0048 

LDX  #IOSTR 

CEB3-  AO 

04 

LDY  #404 
JMP  ROTATL 

CEB5-  4C 

2C 

CC 

0049 

0050 

0051 

|PUT  "FPIOSUBS.S" 

0034 

.FI  D26  "FPBUFOUT.S" 

99 


SET  PREC  CNTR 

MOVE  I/O  STOR  TO  WORK  ARE 

SET  PNTR   TO  ORIG  VAL 

SET  PREC  CNTR 

START  «10  ROUT 

RESET  PNTR 

SET  PREC  CNTR 

MULT  BY  2  AGAIN 

SET   PNTR   TO   I/O  WORK  AREA 

STORE   IN  FMPNT 

SET  PNTR   TO   I/O  STOR 

STORE   IN   TOPNT 

SET  PREC   CNTR 

ADD  ORIGINAL  TO  ROTATED 

RESET  PNTR 

SET  PREC  CNTR 


0CB1   3250-3F01   FPBUFOUT.S 


CEB8- 
CEBA- 
CEBC- 
CEBE- 
CECO- 
CEC2- 
CEC4- 
CEC6- 
CEC9- 
CECB- 
CECD- 
CECF- 

CED1- 
CED3- 
CED5- 
CED8- 

CEDA- 
CEDD- 
CEDF- 
CEE2- 
CEE4- 
CEE7- 


CEE9-  10  OF 

CEEB- 

CEED- 

CEEE- 

CEFO- 

CEF2- 


A9 

E5 

85 

BA 

A9 

00 

85 

BB 

85 

B9 

85  DF 

A2 

16 

20 

00 

CC 

A5 

C2 

30 

04 

A9 

2B 

DO 

09 

A2 

CO 

AO 

03 

20 

47 

CC 

A9 

2D 

20 

88 

CF 

A9 

3° 

20 

88 

CF 

A9 

2E 

20 

88 

CF 

C6 

C3 

A?  04 


55 
10 


20  5D  CE 


CEF5- 
CEF7- 

CEFA- 
CEFD- 


CE 


20  71  CE 
4C  F5  CE 


CF00-  A2  DB 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

OO34 

0035 

0036 

0037 

OO38 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 


PUT  "FPBUFOUT.S" 
FLOATING  POINT  OUTPUT  ROUTINE 
CONVERTS  THE  FLOATING  POINT  BINARY 
NUMBER  IN  FPACC  TO  ITS  DECIMAL 
EQUIVALENT  AND  OUTPUTS  IT  TO  THE 
DISPLAY  DEVICE  AS  ASCII  CHARACTERS 
IN  THE  FOLLOWING  FORMAT 
0.1234567  E+07 

FPOUT 


OUTNEG 
AHEAD 1 

DECEXT 

DECREP 
DECEXD 
DECOUT 


LDA  #OUTBUF 
STA  »TOPNT 
LDA  #400 
STA  •T0PNT+1 
STA  *FMPNT+1 
STA  «IOEXPD 
LDX  #416 
JSR  CLRMEM 
LDA  *FPMSW 
BMI  OUTNEG 
LDA  #'+ 
BNE  AHEAD 1 

LDX  #FPLSW 
LDY  #$3 
JSR  COM" 
LDA  #' 


OMPLM 


JSR  BUFECHO 
LDA  #'0 
JSR  BUFECHO 
LDA  #'. 

JSR  BUFECHO 
DEC  »FPACCE 

BPL  DECEXD 

LDA  #$4 

CLC 

ADC  »FPACCE 

BPL  DECOUT 

JSR  FPX10 

LDA  »FPACCE 
JMP  DECEXT 

JSR  FPD10 
JMP  DECREP 

LDX  #I0STR 


; CLEAR  OUTPUT  BUFFER 


; CLEAR  DEC  EXP  STOR 


;IS  NEG 

; YES .MAKE  POS  AND  OUT  "-" 
;ELSE.  SET  ASCII  FOR  "+" 
[DISPLAY  + 

;SET  PNTR  TO  LS  BYTE  OF  FP 
;SET  PREC  CNTR 
;MAKE  FPACC  POS 
;SET  ASCII  FOR  "-» 

;OUT  SIGN  OF  RESULT 
;SET  UP  ASCII  0 
;OUT  0 

;SET  UP  ASCII  "." 
;OUT  . 


;IF  COMPENSATED. EXP>=0 
;EXP  NEG, ADD   4  TO  FPACC 

;ADD   4  TO  FPACC  EXP 
;IF  EXP>=0,OUT  MANTISSA 
;ELSE,    MULT  MANTISSA  BY   10 

;GET  EXP 

; REPEAT  TEST  FOR  >=0 

;MULT  FPACC  BY  .1 

;CHK  STATUS  OF  FPACC  EXP 

;SET  UP  FOR  MOVE  OPER 
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CF02- 

86 

BA 

0050 

STX  »TOPNT 

CF04- 

A2 

CO 

0051 

LDX  #FPLSW 

CF06- 

86 

B8 

0052 

STX  «FMPNT 

CF08- 

A2 

81 

0053 
0054 

LDX  #$3 
JSR  MOVIND 

CFOA- 

20 

CC 

CFOD- 

59 

00 

0055 

LDA  #$0 

CFOF- 

85  DE 

0056 

STA  »I0STR3 

CF11- 

A2 

DB 

0057 
0058 

LDX  #IOSTR 

CF13- 

AO 

03 

LDY  #$3 
JSR  ROTATL 

CF15- 

20 

2C 

CC 

0059 

CFI8- 

20 

85 

CE 

0060 
0061 
0062 

COMPEN 

JSR  DECBIN 

CF1B- 

E6 

Col 

INC  "FPACCE 

CF1D- 

FO 

006  3 
0064 

BEQ  OUTDIG 

CF1F- 

A2 

DE 

LDX  #I0STR3 

CF21- 

AO 

04 

0065 

LDY  #$4 
JSR  ROTATR 

CF23- 
CF26- 

20 

34 

CC 

0066 

sc 

1B 

CF 

0067 
0068 

JMP  COMPEN 

ODTDIG 

CF29- 

59 

07 

0069 

LDA  #$7 
STA  »CNTR 

CF2B- 

85 

BC 

0070 

CF2D- 

A5 

DE 

0071 

LDA  »I0STR3 

CF2F- 

FO 

11 

0072 
0073 
0074 

OtJTDGS 

BEQ  ZERODG 

CF31- 

A5 

DE 

LDA  "I0STR3 

CF33- 

09 

ft 

0075 

ORA  #'0 

CF35- 

20 

CF 

0076 

JSR  BUFECHO 

0077 
0078 

DECRDG 

CF38-  CI 

BC 

DEC  »CNTR 

CF3A- 

FO 

1A 

0079 
0080 

BEQ  EXPOUT 

CF3C- 

20 

85 

CE 

JSR  DECBIN 

CF3F- 

1IC 

31 

CF 

0081 
0082 

ZERODG 

JMP  OUTDGS 

CF42- 

C6 

DF 

OO83 
0084 

DEC  «IOEXPD 

cf44- 

A5 

DD 

LDA  »I0STR2 

CF46- 

DO 

FO 

0085 

BNE  DECRDG 

CF48- 

A5 

DC 

0086 

LDA  «I0STR1 

CF4A- 

DO 

EC 

0087 
0088 

BNE  DECRDG 

CF4C- 

A5 

DB 

LDA  "IOSTR 

CF4E- 

DO 

E8 

0089 

BNE  DECRDG 

CF50- 

S9 

00 

0090 

LDA  #$0 

CF52- 

85 

DF 

0091 

STA  »IOEXPD 

CF54- 

FO 

E2 

0092 
0093 
0094 

EXPOUT 

BEQ  DECRDG 

CF56- 

A9 

45 

LDA  #'E 

CF58- 

20 

88 

CF 

0095 

JSR  BUFECHO 

CF5B- 

A5 

DF 

0096 

LDA  «IOEXPD 

CF5D- 

30 

05 

0097 
0098 

BMI  EXOUTN 

CF5F- 

A9 

2B 

LDA  #'+ 

CF61- 

4C 

6C 

CF 

0099 
0100 

EXOOTN 

JMP  AHEAD2 

CF64- 

49  Fl 

0101 

EOR  #$FF 

CF66- 

85 

DF 

0102 

STA  »IOEXPD 

CF68- 

E6 

DF 

0103 
0104 

INC  «IOEXPD 

CF6A- 

A9 

2D 

LDA  #•- 

0105 

AHEAD2 

CF6C- 

20 

88 

CF 

0106 

JSR  BUFECHO 

CF6F- 

AO 

00 

0107 
0108 

LDY  #$0 

CF71- 

A5 

DF 

LDA  »IOEXPD 

0109 

SUB  12 

CF73- 
CF74- 

38 

0110 

SEC 

w9 

OA 

0111 

SBC  #$GA 

CF76- 

1 

06 

0112 

BMI  TOMUCH 

CF78- 

DF 

0113 
0114 

STA  «IOEXPD 

CF7A- 

C8 

INY 

CF7B- 

4C 

73 

CF 

0115 
0116 

TOMUCH 

JMP  SUB 12 

CF7E- 

98 

0117 
0118 

TYA 

CF7F- 
CF81- 

09 

JQ 

ORA  #'0 

20 

88 

CF 

0119 

JSR  BUFECHO 

CF84- 

A5 

DF 

0120 

LDA  «I0EXPD 

CF86- 

09 

30 

0121 

ORA  #'0 

100 


SET  TOPNT  TO  WORK  REG 
SET  PNTR  TO  FPACC  LS  BYTE 

SET  PREC  CNTR 
MOVE  FPACC  TO  OUT  REGS 

CLEAR  OUT  REG  MS  BYTE+1 
SET  PNTR  TO  OUT  LS  BYTE 
SET  PREC  CNTR 
ROT  TO  COMP  FOR  SIGN  BIT 
OUT  REG  X 10, OVERFLOW 

INCR  FPACC  EXP 

OUT  DIGIT 

ELSE, ROT ATE  R  TO  COMP 

FOR  ANY  REMAINDER  IN  BIN 

ROT  R 

REPEAT  LOOP  UNTIL  EXP=0 

SET  DIGIT  CNTR 

FETCH  BCD, SEE  IF  1ST  DIG 
YES,  CHECK  HEM  OF  DIGITS 

GET  BCD  FROM  OUT  REG 
FORM  ASCII  CODE 
OUT  DIGIT 

DEC  DIGIT  CNTR 
=0,DONE  OUT  EXP 
ELSE, GET  NEXT  DIGIT 
FORM  ASCII  AND  OUT 

DEC  EXP  FOR  SKIPPING  DISP 
CHECK  IF  MANTISSA  =0 
IF  NOT  O.CONT  OUT 


; MANTISSA  0, CLEAR  EXP 

;BEF0RE  FINISHING  DISPLAY 

;SET  ASCII  FOR  E 

; DISPLAY  E 

;TEST  IF  NEG 

;YES,  DISPLAY  -  AND  NEGATE 

;N0,  SET  ASCII  FOR  + 

; DISPLAY  EXP  VAL 

; TWO'S  COMP  EXP 
;T0  MAKE  NEG  POS 
;F0R  OUT  OF  EXP  VALUE 
;SET  ASCII  FOR  - 

;OUT  SIGN  OF  EXP 

;  FETCH  EXP 


;SUB  TEN'S  FROM  EXP 
J  IF  MINUS, READY  FOR  OUT 
; RESTORE  POS  RESULT 
;INC  TEN'S  CNTR 
;CONT  SUB 

;PUT  MS  DIGIT  INTO  A 

;FORM  ASCII 

;OUT  TEN'S  DIG  TO  DISPLAY 

; FETCH  UNIT'S  DIGIT 

J FORM  ASCII 


Appendix  C 


Logger  Floating  Point 


101 


CF88-  E6 
CF8A-  A6 


CF8C- 
CF8E- 


0122 
0123 
0125 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0035 


; OUTBUF [0] 
:0UTBUF[1j 
BUFECHO 


IS  A  POINTER  TO  THE  LAST  CHAR  IN  OUTBUF 
TO  OUTBUF[15]  CONTAINS  THE  CHARS. 


INC  *OUTBUF 
LDX  'OUTBUF 
STA  »OUTBUF,X 
RTS 


; POINT  TO  NEXT  FREE  SPOT 
;  STORE  CHAR 


;PUT 


"FPBUFOUT.S" 
•FI  D26 


"FPDISP.S" 


03FC  3250-364C  FPDISP.S 


CF8F- 
CF92- 
CF94- 
CF96- 
CF98- 
CF9B- 
CF9D- 
CFAO- 
CFA2- 
CFA4- 
CFA7- 
CFA8- 
CFAA- 
CFAC- 
CFAE- 
CFBO- 
CFB2- 
CFB3- 
CFB5- 
CFB7- 
CFB9- 
CFBB- 
CFBD- 
CFBF- 
CFC2- 
CFC5- 
CFC7- 
CFCA- 

CFCB- 
CFCC- 
CFCF- 
CFD1- 
CFD3- 
CFD5- 
CFD7- 
CFDA- 
CFDC- 
CFDF- 
CFE2- 
CFE1- 
CFE7- 
CFEA- 
CFEC- 
CFEF- 


20  B8  CE 
A5  E6 
C9  2D 
DO  08 
AD  44  A6 
09  80 
8D  44  A6 
A2  04 
B5  E5 
20  47  8A 
E8 

EO  07 
DO  F6 
A6  E5 
B5  E5 
29  OF 

C9  05 
BO  14 
B5  E3 
C9  2D 
FO  OE 
A5  EC 
20  47  8A 
B9  41  A6 
09  80 
99  41  A6 


98 

20  44  8A 
A6  E5 
B5  E3 
C9  2D 
DO  08 
AD  45  A6 
09  80 
8D  45  A6 
AD  41  A6 
09  80 
8D  41  A6 
AD  44  A6 
09  80 
8D  44  A6 
60 


;PUT  "FPDISP.S" 

;THIS  ROUTINE  DISPLAYS  THE  NUMBER  IN  FPACC 
;0N  4  DIGITS.   FOR  NUMBERS  FROM  .1  TO  1000 
;THE  NUMBER  IS  FIXED.   OTHERWISE  IT  IS  .XXX.E 
jWITH  THE  DECIMAL  ON  E  BEING  THE  SIGN  BIT  OF  E. 


END  OF  MAE  PASS! 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008  FPDISP 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037  0SCINOT 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0036 


JSR 
LDA 
CMP 
BNE 
LDA 
ORA 
STA 
LDX 
LDA 
JSR 
INX 
CPX 
BNE 
LDX 
LDA 
AND 
TAY 
CMP 
BCS 
LDA 
CMP 
BEQ 
LDA 
JSR 
LDA 
ORA 
STA 
RTS 

TYA 
JSR 
LDX 
LDA 
CMP 
BNE 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
RTS 


;PUT  "FPDISP.S" 
.EN 


FPOUT 

•OUTBUF+1 

#•- 

=+9 

DISBUF+4 


;CONV  IN  ASCII 
;SIGN 


#$80 
DISBUF+4 
#$04 

•OUTBUF, X 
OUTCHR 

[DISPLAY  FIRST  3  DIGS. 
; OUTPUT  ASCII  CHR 

#$07 

•OUTBUF 
•OUTBUF, X 
#$0F 

;MASK  OFF  DIGIT 

#$05 
0SCINOT 
•0UTBUF-2.X 
#'- 

0SCINOT 
•OUTBUF+7 
OUTCHR 
DISBOF+1 ,1 
#$80 
DISBUF+1  ,r 

jgSCINOT  IF  >4 

; SCIENTIFIC  NOTATION  IF  NE 

*  FIXED 

•OUTPUT  LAST  CHAR 

OUTNIB 

•OUTBUF 

•OUTBUF-2.X 

#'- 

=+9 

RMDIG 

#$80 

RMDIG 

DISBUF+1 

#$80 

DISBUF+1 

DISBUF+4 

#$80 

DISBUF+4 

; OUTPUT  NIBBLE  IN  A 
[SIGN  BYTE 

;SET  SIGN  FLAG 

jSET  MANTISSA  DEC  PNT 

;SET  SCI  NOT  FLAG 
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LABEL  FILE: 

SACCSET  =CCA6 
gCKEQEX  =CCC4 
gMORACC  =CCD7 
gNORMEX  =CC8A 
§SHACOP  =CCED 
ACCESS  =8B86 
AHEAD 1  =CEDA 
BA  =CC00 
CKRND  =CD68 
CNTR  =00BC 
COMPLM  =CC47 
DECBIN  =CE85 
DECMEM  =CC1E 
DECREP  =CEF5 
DIVIDE  =CDDD 
EXOUTN  =CF64 
FMPNT  =00B8 
FOPLSW  =00C8 
FPACCE  =00C3 
FPDISP  =CF8F 
FPLSWE  =0OBF 
FPNOHM  =CC71 
FPSDB  =CD1C 
ID  =  A64E 
INCMEM  =CC15 
INPRDI  =00D6 
IOEXPD  =00DF 
IONSW  =00D8 
I0STR2  =OODD 
L2  =84D3 
MCAND1  =OOC5 
MOVIND  =CC0A 
NACCESS  =8B9C 
NEGOP  =CDCO 
ODTBOF  =00E5 
ODTDGS  =CF31 
ODTNIB  =8A44 
PARN  =A64A 
QDOROT  =CDF4 
RMDIG  =A645 
ROTL  =CC2D 
SCAND  =8906 
SETSUB  =CE36 
SPACE  =8342 
SDBEXP  =CDD0 
TEMPI  =00E4 
TPEXP  =OOE3 
TPNSW  =OOE1 
VIA1  =A0OO 
WORKO  =00CC 
WORK3  =00CF 
WORK6  =00D2 

//0O00,CFF0,13F0 


§ACNONZ  =CC8B 
gCKRET  =CCCD 
gMOVOP  =CCB5 
0NOVFL  =CCCE 
SSHIFTO  =CCE5 
ADDER  =CC55 
AHEAD2  =CF6C 
BLKMOV  =8740 
CKSIGN  =CD92 
COMPEN  =CF1B 
CONFIG  =89A5 
DECEXD  =CEFA 
DECOUT  =CF00 
DERROR  =CDF2 
DVEXIT  =CE29 
EXPOUT  =CF56 
FOLSWE  =00C7 
FOPMSW  =00CA 
FPADD  =CCB1 
FPDIT  =CDC9 
FPMSW  =00C2 
FPNSW  =00C1 
FPX10  =CE5D 
MBYTE  =81D9 
INEXPS  =00D5 
INTVEC  =A678 
IOLSW  =00D7 
IOSTR  =OODB 
IOSTR3  =OODE 
MC  =1000 
MCAND2  =00C6 
MULTEX  =CD91 
NADOPP  =CD4A 
KOGO  =CDF3 
ODTBYT  =82FA 
OUTDIG  =CF29 
OOTXAH  =82F4 
PARNR  =A649 
RESALL  =81C4 
ROTATL  =CC2C 
SAVE2  =87EA 
SDBYT  =A651 
SHLOOP  =CD0F 
S0B12  =CF73 
SUBR1  =CE50 
TOMDCH  =CF7E 
TPLSW  =00E0 
TSIGN  =00BD 
VIA2  =A800 
WORK1  =00CD 
WORK4  =00D0 
WORK7  =00D3 


gACZERT  =CC7E 
SMINOS1  =CC9D 
0NONZAC  =CCBF 
gSCINOT  =CFCB 
gSKPNEG  =CCE1 
ADOPP  =CD3D 
ARSHR  =CC37 
BOFECHO  =CF88 
CLRMEM  =CC00 
COHPL1  =CC44 
CROUND  =CD6C 
DECEXT  =CEE9 
DECRDG  =CF38 
DISBUF  =A640 
EXMLDV  =CD80 
FILL3  =8718 
FOPEXP  =00CB 
FOPNSW  =00C9 
FPD10  =CE71 
FPLSW  =00C0 
FPMULT  =CD26 
FPODT  =CEB8 
GOVEC  =A659 
DiCHR  =8A1B 
INMTAS  =00D4 
IOEXP  =OODA 
IOMSW  =00D9 
IOSTR 1  =O0DC 
KSCONF  =89A3 
MCANDO  =0OC4 
MONITOR  =8003 
MULTIP  =CD34 
NEGFPA  =CDB2 
OPSGNT  =CDBB 
OOTCHR  =8A47 
OOTNEG  =CED1 
PARM  =8220 
PREXFR  =CD76 
RESTART  =8000 
ROTATR  =CC34 
SAVER  =8188 
SETDCT  =CDD9 
SIGNS  =00BE 
SUBBER  =CC63 
TAPDEL  =A630 
TOPNT  =00BA 
TPMSW  =00E2 
VECSW  =8BB7 
VIA3  =AC00 
W0RK2  =00CE 
WORK5  =00D1 
ZERODG  =CF42 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 


;PDT  "R2.1.C" 
.LS 

SYM  CASSETTE  READER  FOR  DATA  LOGGER  3.0 

JULY  16.1981 

BY  MICHAEL  D.  SCHWARZ 

AG  ENGG  EXTENSION 
KANSAS  STATE  UNIVERSITY 

VERSION  2.1 

ADGDST  22,1981 

MODIFIED  TO  GIVE  DATA  IN  CRONOLOGICAL  ORDER 

AND  SKIP  REPEATED  DATA  FROM  BEFORE.  REDONE 

INITIAL  STRUCTURE. 

ADDED  HEXDUMP  MAIN  PROGRAM. 

VERSION  2.2 

OCTOBER  12,1981 

ENTRY  AND  CONFIG  TABLE  CHANGED  TO  USRO-2  SELECTS 

MAIN  ROUTINE  AND  NOT  TABLE.  ADDED  USR2  ENTRY  TO 

PRINT  EOT  AND  JMP  TO  RESET  ROUTINE. 

REONE  INITIAL  STRUCTURE. 

CORRECT  PROBLEM  WITH  BLANK  LINES  FROM  BLANK  &  NEWLINE 

.CE 

.CT 
.OS 
.ES 
.PR 
.PR 


BA 

DATASTART 

PAGES 


"PUT  FPDISK  IN  DRIVE  2" 

"ENTER  BEGINNING  ADDRESS" 
.IN  BA 

.PR  "INPUT  DATA  STARTING  PAGE" 
.IN  DATASTART 

.PR  "INPUT  NUMBER  OF  MEMORY  PAGES  IN  HEX" 
.IN  PAGES 
.FI  "SYM.L" 


02BD  3494-3751   SYM.L 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0026 
0029 
0030 


JPUT  "SYM.L" 
[MONITOR  ADDRESSES 


ACCESS 

ASCNIB 

BLKMOV 

CONFIG 

FILL3 

INBYTE 

INCHR 

KSCONF 

L2 

MONITOR 

NACCESS 

OUTBYT 

OUTCHR 

OUTNIB 

OUTXAH 

PARM 

RESALL 

RESTART 

SAVE2 

SAVER 

SCAND 

SPACE 

TSTAT 

VECSW 

DISBUF 


.DE 
.DE 
.DE 
.DE 
.DE 


::8B86 
:;8275 
:;8740 
::89A5 
.  :;8718 
.DE  :;81D9 
.DE  ::8A1B 
.DE  :;8QA3 
.DE  :;84D3 
.DE  ! ;8003 
.DE  :;8B9C 
.DE  ::82FA 
.DE  ::8A47 
.DE  ::8A44 
.DE  :;82F4 
.DE  ::8220 
.DE  ::81C4 
.DE  i!8000 
.DE  :i87EA 
.DE  118188 
.DE  :i8906 
.DE  :;8342 
.DE  ii8B3C 
.DE  J8BB7 

.DE  *A640 
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0031 
0032 

0033 

0034 
0035 
0036 
0037 
003^ 
OO39 
0040 
0041 
0042 
0043 
0044 
0045 
0040 


GOVEC 

ID 

INTVEC 

PARN 

PARNR 

RMDIG 

SDBYT 

TAPDEL 

TECHO 

VIA1 
VIA2 
VIA3 

;PDT  "SYM.L" 


.DE  $A659 
.DE  ::A64E 
.DE  :;A678 
.DE  :IA64A 
.DE  :;A649 
.DE  IIA645 
.DE  iiA651 
.DE  :iA630 
.DE  $A653 


.FI  "MACROS. M" 


0225  3494-36B9  MACROS. M 


IIILDZI 


IIILDZZ 


II1ADZZ 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

OO39 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0041 

0042 


0267  36B9-3920  R2ZPVARS.B 


;PDT  "MACROS.  M" 


.MG 

.MD  (...A  .. 
LDA  #L,...B 
STA  *...A 
LDA  #H,...B 
STA  »...A+1 
.ME 


,B) 


.MD  (...A 
LDA  «...B 
STA  »...A 
LDA  »...B+1 
STA  «...A+1 
.ME 


...B) 


.MD  (. 
CLC 
LDA  ». 
ADC  «. 
STA  ». 
LDA  «. 
ADC  ». 
STA  «. 
.ME 


..A  ...B) 

,.A 
..B 
..A 

..A+1 
.B+1 
..A+1 


HIS 

3ZZ 

.MD 

(.. 

.A  .. 

.B) 

SEC 

LDA 

•  , , 

.A 

SBC 

•  t ' 

.B 

STA 

»' ' 

.A 

LDA 

»[[ 

.A+1 

SBC 

»\\ 

.B+1 

STA 

i\  \ 

.A+1 

.ME 

II1CPZZ 

.MD 

i:: 

.A  .. 

B) 

LDA 

.A+1 

CMP 

•># 

.B+1 

BNE 

=+5 

LDA 

•.. 

.A 

CMP 

•. . 

.B 

.ME 

;POT 

"MACROS.  M" 

.BA 

$00 

.FI 

"R2ZPVARS.B" 

0001  ;PUT  "R2ZPVARS.B" 
0002 
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0000- 
0002- 
0004- 
0006- 
0008- 
0O0A- 
0010- 
0011- 
0012- 
0016- 
001A- 
001F- 
0020- 
0021- 
0022- 
0024- 
0025- 
0026- 
0027- 
0028- 
0029- 
002A- 
002B- 
002C- 

002D- 
002E- 
002F- 
0030- 
0031- 
0032- 
0033- 


0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0043 


;  CONSTANTS 

HAXAD 

MAXDG 

MAXPL 

MAXDUMP 

NODAT 


.DE  65 

.DE  70 

.DE  65 

.DE  47 

.DE  $EE 


J  ZERO  PAGE  VARIABLES 


DATA 

END 

CURRENT 

START 

LENGTH 

LSTDAY 

LABEL 

ERROR 

DIVTMP 

BINARY 

BCD 

NBINARY 

NBCD 

ZERO 

COL 

ADCHAN 

DGCHAN 

PLCHAN 

CNTR1 

CNTR2 

STACK 

COUNT 

DLO0P1 

DLOOP2 


.OS 

,DS 

.DS 

.DS 

.DS 

.DS 

.DS  1 

.DS  1 

.DS 

.DS 

.DS 


4 
4 
5 

.DS  1 
.DS  1 
.DS  1 
.DS  2 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 


,   STRUCTURE  OF  THE  CONFIG  TABLE 

CHARDEL  .DS  1 

LINEDEL  .DS  1 

PROMPT  .DS  1 

LINEFEED  .DS  1 

SYNCFLAG  .DS  1 

BAUD  .DS  1 

MAINENTRY  .DS  2 

;PUT  "R2ZPVARS.B" 

.FI  D26  "FPVARS.B" 


02BD  36B9-3976  FPVARS.B 


0035- 
0037- 
0039- 
003A- 
003B- 
003C- 
003D- 
003E- 
003F- 
0040- 
0041- 
0042- 
0043- 
0044- 
0045- 
0046- 
0047- 
0048- 
0049- 
0O4A- 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 


;PUT  "FPVARS.B" 

; VARIABLES  FOR  MATH  ROUTINES 


FMPNT 

TOPNT 

CNTR 

TSIGN 

SIGNS 

FPLSWE 

FPLSW 

FPNSW 

FPMSW 

FPACCE 

MCANDO 

MCAND1 

MCAHD2 

FOLSWE 

FOPLSW 

FOPNSW 

FOPMSW 

FOPEXP 

WORKO 

WORK1 


.DS  2 

.DS  2 

.DS  1 

.DS  1 

.DS  1 

.DS  1 

.DS  1 

.DS  1 


.DS 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
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00KB-  0025  W0RK2 

004C-  0026  WORK3 

004D-  0027  W0RK4 

004E-  0028  W0RK5 

004F-  0029  WORK6 

0050-  0030  WORK7 
0031 

0051-  0032 

0052-  0033 

0053-  oop 

0055-  0035 

0055-  0036 

0056-  0037 

0057-  0038 

0058-  0039 

0059-  0040 
005A-  0041 
005B-  0042 
005C-  0043 
005D-  0044 
005E-  0045 
005F-  0046 

0060-  0047 

0061-  0048 

0062-  0049 
0050 
0051 
0044 
0045 
0046 

0BC3  36B9-427C  R2MAIN.S 


.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 
.DS  1 


;      van. 
INMTAS 

moLti  run  i/u 
.DS  1 

INEXPS 

.DS  1 

INPRDI 

.DS  1 

IOLSW 

.DS  1 

IONSW 

.DS  1 

IOMSW 

.DS  1 

IOEXP 

.DS  1 

IOSTR 

.DS  1 

I0STR1 

.DS  1 

IOSTR 2 

.DS  1 

IOSTR 3 

.DS  1 

IOEXPD 

.DS  1 

TPLSW 

.DS  1 

TPNSW 

.DS  1 

TPMSW 

.DS  1 

TPEXP 

.DS  1 

TEMPI 

.DS  1 

OUTBUF 

.DS  16 

;PUT  "FPVARS.B" 

.BA  BA 

.MC  $1000 

.FI  "R2MAIN.S" 

cooo- 

C002- 
C004- 
C007- 
C00A- 
C00D- 
C00F- 
C011- 
C014- 
C017- 
C01A- 
C01C- 
C01E- 
C021- 


C024- 
C027- 
C029- 


C9  14 
DO  09 
20  24  CO 
20  84  CO 
4C  07  CO 
C9  15 
DO  09 
20  24  CO 
20  B1  CO 
4C  14  CO 
C9  16 
DO  2E 
20  24  CO 
4C  CO  CO 


20  86  8B 
EO  00 
DO  15 


C02B- 
C02D- 


A2  05 
BD  6C  C7 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 


;PUT  "R2MAIN.S" 

;USRENTRY  —  CALLED  FROM  THE  MONITOR  AS  THE 
; UNRECOGNIZED  COMMAND  VECTOR.   USRO,  USR1  &  0SR2 
;WITH  0  OR  1  PARAMETER  ARE  RECOGNIZED  HERE  AND 
; VECTORED  TO  THE  APPROPIATE  ROUTINE. 

DSRENTRY 


CMP  #$14 
BNE  =+10 
JSR  INIT 
JSR  MAIN 
JMP  =-3 
CMP  #$15 
BNE  =+10 
JSR  INIT 
JSR  MAINDUMP 
JMP  =-3 
CMP  #$16 
BNE  NEXT 
JSR  INIT 
JMP  PEOT 


;USRO 

;NEXT  COMMAND 

; INITIALIZE 

;CALL  MAIN  ROUTINE 

; RECALL  MAIN 

;OSER  1 


*  DSER  2 

•END  OF  COMMANDS 

;N0  RE  ENTRY  HERE 


;INIT:  CONTROL  INITIALIZATION  OF  ZERO  PAGE 
;GET  PARAMETERS  AND  PREPARE  FOR  MAIN  ROUTINE. 

INIT 

JSR  ACCESS 
CPX  #0 
BNE  INITZP 

;GETABLE:  PRINT  MESSAGE  ON  LED'S  AND  ASK  FOR 
;A  SINGLE  HEX  CHAR  TABLE  NUMBER.   IF  INVALID 
;ASK  AGAIN. 
; STORE  HEX  NUMBER  AS  PARN  1  AND  RETURN  WITH  X=1. 

GETABLE 

LDX  #5 

LDA  MESSAGE, X 
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C030-  9D  40  A6 
C033-  CA 
C034-  10  F7 

C036-  20  1B  8A 
C039-  20  75  82 
C03C-  BO  ED 
C03E-  90  03 


C040-  AD  HA  A6 

C043-  OA 

C044-  OA 

C045-  OA 

C046-  C9  58 

C048-  90  04 

C04A-  68 
C04B-  68 

CMC-  38 
C04D-  60 

C04E-  A8 
C04F-  A9  00 
C051-  A2  F8 
C053-  CA 
C054-  95  00 
C056-  DO  FB 

C058-  B9  7A  C7 
C05B-  95  2D 
C05D-  C8 
C05E-  E8 
C05F-  EO  08 
C061-  DO  F5 

C063-  A5  32 
C065-  C9  FF 
C067-  DO  OA 

C069-  A2  07 
C06B-  BD  00  01 
C06E-  95  2D 
C070-  CA 
C071-  10  F8 


C073- 
C076- 
C078- 


20  B7  8B 
A9  00 
8D  53  A6 


C07B-  A5  32 
C07D-  8D  51 


C080 
C081 
C083 


BA 
86  29 
60 


A6 


C084-  20  CE  CO 
C087-  20  46  C2 
C08A-  20  46  C3 
C08D-  20  22  C1 
C090-  20  45  C1 


0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

OO83 

0084 

0085 

0086 

OO87 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 


STA  DISBUF.X 

DEX 

BPL  =-8 

JSR  INCHR 
JSR  ASCNIB 
BCS  GETABLE 
BCC  INITZP+3 


; MESSAGE 


;GET  ASCII  CHARACTER 
!  CONVERT  TO  HEX  NIBBLE 
; RESTART  IN  NOT  HEX 
; ALWAYS 


;INITZP:  CHECK  THAT  TABLE  NUMBER  IS  VALID, 
;ZERO  ZP,  TRANSFER  TABLE.  TRANSFER  USER  TABLE 
;IF  SELECTED,  AND  SETDP  FOR  RS232  TRANSMITION. 


INITZP 


NEXT 


SHI 


LDA  PARN 

ASL  A 

ASL  A 

ASL  A 

CMP  #TABLENGTH 

BCC  NEXT+2 

PLA 

PLA 

SEC 
RTS 

TAI 

LDA  #0 

LDX  #$F8 
DEX 

STA  *0,X 

BNE  =-4 

LDA  CONFIGTAB.Y 

STA  »CHARDEL,X 

INY 

INX 

CPX  #8 

BNE  =-10 

LDA  »BAUD 
CMP  #$FF 
BNE  §RI 

LDX  #7 
LDA  i 100.X 
STA  *CHARDEL,X 
DEX 
BPL  =-7 

JSR  VECSW 
LDA  #0 
STA  TECHO 
LDA  'BAUD 
STA  SDBYT 
TSX 

STX  'STACK 
RTS 


;1  PARN,  TABLE  ENTRY 


; OVERRUN? 


; ERROR  RETURN 

j BYPASS  CALLING  ROUTINE 


;CLR  ZERO  PAGE  MEMORY 

;SAVE  IN  ZERO  PAGE 

;8  VALUES 

;USE  USR  VALUES? 

;USER  VALUES  IF  BAUD=0 

;8  USR  VALUES 

;USR  VALUE  LOCATION 

;SET  RS232 
;SET  BAUD  RATE 


;SAVE  STACK  FOR  FIXUP 
;NON  ERROR  RETURN 


;THIS  IS  THE  MAIN  ROUTINE  THAT  CONTROLS  THE  TRANSFER 
;IT  IS  CALLED  AFTER  THE  SETUP  ROUTINE  FINNISHES  AND 
; CONTROL  IS  TRANSFERED  HERE  FROM  EOF  WHEN  THE  END 
;OF  DATA  IS  REACHED. 


MAIN 


MAINLOOP 


JSR  LOAD 
JSR  SYNC 
JSR  OUTHEAD 
JSR  CALCLENGTH 
JSR  FINDFIRST 


;GET  A  RECORD  FROM  TAPE 
;GET  IN  SYNC  WITH  RECIEVER 
; PRINT  HEADER 
;CALCUATE  RECORD  LENGTH 
;FIND  LAST  RECORD  IN  MEMOR 
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C093 
C096- 
C099- 
C09C 
C09E- 
COAV 

coa; 

COAL 
C0A8 
COAB 
COAE 


20  9C  C1 
20  F6  C2 
20  66  C3 
A5  24 
20  95  C3 
A5  25 
20  E§  C3 

20  OC  C4 
20  09  C2 
4C  93  CO 


-  A5 


C0B1- 
C0B4- 
C0B7- 
COBA- 
COBD- 


20  CE  CO 
20  46  C2 
20  25  C3 
20  09  C2 
4C  3D  C4 


0112 

0113 

0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 

0123 

0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0047 


JSR  NEXTRECORD 
JSR  AVGFACT 
JSR  OUTDATE 
LDA  "ADCHAN 
JSR  OUTAD 
LDA  «DGCHAN 
JSR  OOTDG 
LDA  «PLCHAN 
JSR  OUTPL 
JSR  EOR 
JMP  HAINLOOP 


;CALC  NEXT  RECORD 
:CALC0ATE  AVERAGE  FACTOR 
; PRINT  RECORD  DATE 

; OUTPUT  ADCHANNELS 

; OUTPUT  DIGITAL  CHANNELS 

; OUTPUT  PULSE  CHANNELS 
;END  OF  RECORD 
; CONTINUE 


;MAINDUMP:  THIS  MAIN  ROUTINE  CONTROLS  A  HEXIDECIMAL 
;DUMP  OF  THE  TAPE.   THE  FILE  NAME  HEADER  AND  END 
;AT  THE  END  OF  FILE  ARE  ADDED.  THE  LENGTH  OF  LINE 
;IS  CONTROLED  BY  MAXDUMP. 


MAINDUMP 


JSR  LOAD 
JSR  SYNC 
JSR  OUTLAB 
JSR  NEWLINE 
JMP  OUTDUMP 


;GET  FILE 

;GET  READY 

; PRINT  FILE  NAME 

;END  OF  FILE  NAME 

;DUMP,  EOF  WILL  RETURN. 


;PEOT:  PRINT  END  OF  TAPE  AND  EXIT  TO  RESET  ROUTINE 
PEOT 


JSR  SYNC 
LDX  #4 
JSR  WMESG+2 
JSR  WMESG 
JMP  ($C7FC) 

;PUT  "R2MAIN.S" 

.FI  "R2FILE.S" 


;EOT 

;END 

; RESET  VECTOR  ON  CHIP 


0B79     36B9-4232     R2FILE.S 


COCE-  20    14   C1 
C0D1-  A9   00 
C0D3-  8D  4E  A6 
C0D6-  85    11 
'  20  D3  84 

AD  00  A4 


COD 
CODB 


CODE-  85  10 
COEO-  90  02 
C0E2-  C6  11 


C0E4-  20  07  C1 
C0E7-  D1  00 
C0E9-  DO  11 
COEB-  C8 
COEC-  DO  F9 
COEE-  E6  01 
COFO-  CA 


0001 
0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 

0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 

0030 

0031 
0032 
0033 
0034 


;PUT  "R2FILE.S" 

;L0AD  IS  CALLED  TO  READ  A  FILE  FROM  TAPE.  IT  SETS 
; POINTERS  AS  TO  THE  BEGINNING  AND  END  OF  THE  DATA, 
;A  FLAG  FOR  A  READ  ERROR.  AND  THE  FILE  LABEL.  THE 
; BEGINNING  POINTER  IS  NOT  SAVED  FROM  THE  LOAD  SO  THE 
;MEMORY  IS  SET  TO  A  UNIQUE  EMPTY  BYTE  AND  SEARCHED 
;FOR  A  DIFFERENT  BYTE  AFTER  THE  READ. 

LOAD 


;2ER0  MEMORY 

;TAPE  LABEL  (ANY  FILE) 
;N0  ERROR  YET 
;READ  FILE  FROM  TAPE 
;TAPE  LABEL  IS  HERE 


JSR  EMPTY 
LDA  #*00 
STA  ID 
STA  "ERROR 
JSR  L2 
LDA  *A400 
STA  'LABEL 

BCC  =+3  J READ  ERROR  IF  CARRY  SET 

DEC  "ERROR  :READ  ERROR 

;JMP  FIND  ;SET  POINTERS  AND  RETURN 

;FIND  THE  FIRST  LOCATION  THAT  DOESN'T  HAVE 
;A  EMPTY  BYTE  IN  IT  AND  ASSUME  THAT  IS  THE  FIRST 
; LOCATION  READ  OFF  TAPE.  IF  NOT  FOUND  SET 
;BOTH  DATA  AND  END  TO  0. 


FIND 


JSR  SETDAT 

CMP  (DATA).Y 

BNE  FOUND 

INY 

BNE  FIND+3 

INC  "DATA+1 

DEX 
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C0F1 
C0F3      - 
C0F5-  85  01 


DO  F4 
A9  00 


C0F7-  85  02 
C0F9-  85  03 
COFB-  60 

COFC-  84  00 


COFE-  A5  FE 
C100-  85  02 
C102-  A5  FF 
C104-  85  03 

C106-  60 


C107-  AO  00 
C109-  81  00 
C10B-  A9  02 
C10D-  85  01 
C10F-  A9  EE 
C111-  A2  OE 
C113-  60 


C114-  20  07  C1 
C117-  91  00 
C119-  C8 

DO  FB 
E6  01 
CA 
DO  F6 


C1U 

C11C 
C11E. 
C11F. 
C121-  60 


C122- 
C124- 
C126- 
C127- 
C129- 
C12B- 
C12D- 
C12F- 
C131- 
C132- 
C131- 
C136- 
C138- 
C139- 
C13B- 
C13D- 
C13F- 
C140- 
C142- 
C144- 


A9  00 
85   09 

A9  02 
65  26 
65  24 
90  02 
E6  09 
OA 


FO  01 

?8 

65  25 
90  02 
E6  09 
OA 

26  09 
85  08 
60 


0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 


FOUND 


BNE  FIND+3 
LDA  #0 
STA  «DATA+1 
STA  *END 
STA  *END+1 
HTS 

STY  »DATA 
LDZZ  (END  $FE) 


;FOOND  NO  DATA  CLR  POINTER 


;LOW  BYTE  OF  BEGINNING  ADD 


C145-  A5  00 


0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 


RTS 

; EMPTY,  AND  FIND  ARE  CALLED  FROM  LOAD. 
; CALLED  FROM  EMPTY  AND  FIND. 

SETDAT 


SETDAT  IS 


LDY  #0 

STY  "DATA 

LDA  #DATASTART 

STA  »DATA+1 

LDA  #N0DAT 

LDX  #PAGES 

RTS 


; STARTING  PAGE  OF  MEMORY 

;BYTE  TO  USE  FOR  EMPTY  MEM 
; PAGES  OF  MEMORY  USED 


iFILL  MEMORY  FROM  START  FOR  PAGES  WITH  EMPTY 

EMPTY 

JSR  SETDAT 

STA  (DATA).Y 

INY 

BNE  EMPTY+3 

INC  «DATA+1 

DEX 

BNE  EMPTY+3 

RTS 

;CALCLENGTH:  CALCUATE  LENGTH  OF  RECORD  FROM  THE 
i NUMBER  OF  AD,  DG,  AND  PL  CHANNELS. 

CALCLENGTH 


LDA 
STA 
CLC 
LDA 
ADC 
ADC 
BCC 
INC 
ASL 
ROL 
LDX 
BEQ 
SEC 
ADC 
BCC 
INC 
ASL 
ROL 
STA 
RTS 


#0 
•LENGTH* 1 

#2 

•PLCHAN 

•ADCHAN 

=+3 

•LENGTH* 1 

A 

•LENGTH+1 

•PLCHAN 

=+2 

•DGCHAN 
=+3 

•LENGTH+1 
A 

•LENGTH+1 
•LENGTH 


•.INITIALIZE 


;TIME  4  CNT 

;N0  CARRY 

;4  EACH  AT  THIS  POINT 


;ADD  IN  SPACE  FOR  PLCLOCK 

;ADD  CARRY 
;MULT  BY  2 


;FINDFIRST:  FIND  THE  EARLIEST  COMPLETE  RECORD 
;THAT  WAS  TAKEN  AFTER  THE  LAST  RECORD  FROM  THE 
; PREVIOUS  DATA. 


FINDFIRST 


LDA  »DATA 


i INITIALIZE  START  AND 
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C 117-  85  06     0101  ST A  »START  ; CURRENT  WITH  DATA 

CI  49-  85  04     0102  STA  "CURRENT 

C14B-  A5  01      0103  LDA  »DATA+1 

C14D-  85  07     0104  STA  «START+1 

C14F-  85  05     0105  STA  "CURRENT+1 

0106  SRA 

C151-  20  67  C1   0107  JSR  TESTREC  ;END  YET? 

C154-  BO  01      0108  BCS  =+2 

C156-  60        0109  RTS 

0110  ADZZ  (CURRENT  LENGTH) 

C157-  18 
C158-  A5  04 
C15A-  65  08 
C15C-  85  04 
C15E-  A5  05 
C160-  65  09 
C162-  85  05 

C164-  4C  51  C1   0111  JMP  gRA  ;TRY  AGAIN 

0112 

0113  TESTREC 

0114  CPZZ   (END   TORRENT) 

C167-  A5  03 
C169-  C5  05 
C16B-  DO  04 
C16D-  A5  02 
C16F-  C5  04 

C171-  BO  OF     0115  BCS  0RB  ;OUT  OF  DATA? 

0116  SBZZ  (CURRENT  LENGTH) 

C173-  38 
C174-  A5  04 
C176-  E5  08 
C178-  85  04 
C17A-  A5  05 
C17C-  E5  09 
C17E-  85  05 

C180-  18  0117  CLC 

C181-  60  0118  RTS 

0119  SRB 

C182-  24  30  0120  BIT  'LINEFEED        ;STRIP  REPEATS?? 

gig*-  TO  FB  0121  BVS  gRB-1            ; CARRY  SET,  RETURN 

C186-  AO  01  0122  LDY  #1 

£3§?"  II   2S  SI2?  LDA  (CURRENT), Y      ;M0NTH 

£  8A-  FO  F4  0124  BEQ  SRB-2             END  IF  ZERO  MONTH 

S2§§"  49  SS     S32.5  LDY  f5  CHECK  FOR  OLD  DATA 

C18E-  B1  04     0126  LDA   CURRENT) ,Y 

C190-  D9  OA  00   0127  CMP  LSTDAY.Y 

C193-  FO  02     0128  BEQ  =+3 

C195-  38        0129  SEC 

C196-  60        0130  RTS 

C197-  88        0131  DEY 

C198-  10  F4     0132  BPL  --11 

C19A-  18        0133  CLC 

C19B-  60        0134  RTS 
0135 

0136  ;NEXTREC0RD:  SET  POINTERS  TO  NEXT  RECORD  AND 

0137  ;TEST  FOR  DONE 
0138 

0139  NEXTRECORD 
C19C-  38        0140  SEC 

r}l%~   fI  nR     °^i*4,  feDA  ICS55SJT         '•ADD  CURRENT  AND  LENGTH 

ri?i"  II  nt     S  «l  IS?  IJ^SSHL        'km   ST0RE  AT  CURRENT 

C1A1-  85  04     0143  STA  'CURRENT 

C  A3-  85  00  0144  STA  «DATA  ;ALSO  AT  DATA 

C1A5-  A5  05  0145  LDA  *CURRENT+1 

C1A7-  E5  09  0146  SBC  "LENGTH+1 

C1A9-  85  05  0147  STA  'CURRENT* 1 
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C1AB- 

85  01 

0148 

STA  »DATA+1 

C1AD- 

C5  07 
DO  04 

0149 

CMP  »START+1 

C1AF- 

0150 

BNE  =+5 

C1B1- 

A5  04 

0151 

LDA  'CURRENT 

C1B3- 

C5  06 

0152 

CMP  "START 

C1B5- 

IVs 

0153 
0154 

BCC  EOF 

C1B7- 

RTS 

0155 

0156 

;PDT  "R2FILE.S" 

0048 

.FI  "R2I0SUBS.S" 

;AT  BEGINNING  OF  DATA? 


[YES  END  OF  FILE 


08EC  36B9-3FA5  R2I0SDBS.S 


C1B8- 
C1BA- 
C1BC- 
C1BE- 
C1C0- 

C1C2- 
C1C4- 
C1C6- 
C1C8- 
C1CA- 
C1CC- 
C  ICE- 


AS  01 
C5  03 
DO  04 
A5  00 
C5  02 

BO  OB 
AO  00 
B1  00 
E6  00 
DO  02 
E6  01 
60 


C1CF-  A5  11 
C1D1-  DO  OA 


AO 

B1 


0! 
Of 
OA  00 


C1D3 
C1D5 
C1D7- 
C1DA- 
C1DB-  10  F8 

C1DD-  20  09  C2 
C1E0-  20  E7  C1 
C1E3-  A6  29 
C1E5-  9A 
C1E6-  60 


C1E7-  A2  00 
C1E9-  BD  72  C7 
C1EC-  FO  1B 
C1EE-  20  FF  C1 
C1F1-  E8 
C1F2-  DO  F5 


C1F4-  A5  23 
C1F6-  05  22 
C1F8-  DO  03 
C1FA-  E6  23 
C1FC-  60 
C1FD-  A9  20 

C1FF-  E6  22 
C201-  20  47  8A 
C204-  A5  2D 


[PUT  "R2I0SUBS.S" 

03  ;c 

0004  ;EOF  IF  NO  MORE  DATA. 
GETB 


0001 
0002 
0003  i GETB i_GETS  THE  NEXT  BYTE  OF  DATA.  EXITS  TO 

0005 


;E0F:  CALLED  WHEN  END  OF  FILE. 
; PATCHES  UP  THE  STACK  AND  JMPS 


EOF 


0006 
0007 


0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034  WMESG 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042  BLANK 

0043 

0044 

0045 

0046 

0047 

0048 

0049  OOTCHAR 

0050 

0051 

0052 


CPZZ  (DATA  END) 


BCS  EOF 
LDY  #0 

LDA  (DATA),Y 
INC  'DATA 
BNE  =+3 
INC  «DATA+1 
RTS 


LDA  'ERROR 

BNE  =+11 

LDT  #5 

LDA  (START). Y 

STA  LSTDAY.Y 

DEY 

BPL  =-7 

JSR  NEWLINE 
JSR  WMESG 
LDX  'STACK 
TXS 
RTS 


LDX  #0 

LDA  MESGS.X 

BEQ  NEWLINE 

JSR  OUTCHAR 

INX 

BNE  WMESG+2 


LDA  »C0L+1 
ORA  »COL 
BNE  =+4 
INC  »C0L+1 
RTS 
LDA  #' 

INC  »C0L 
JSR  OUTCHR 
LDA  'CHARDEL 


;GET  NEXT  DATA  BYTE 
; INCREMENT  POINTER 


; RETURN  WITH  DATA 

PRINTS  END 
TO  MAIN 


; DON'T  UPDATE  IF  ERROR 


; PRINT  CR    IF  NEEDED 
;WRITE  END 
;PACHUP  STACK 

; RETURN  TO  FIRST  CALL 


; DEFAULT  MESG 
;LOAD  CHAR 
[END  OF  MESG 


; UNCONDITIONAL 

j DON'T   PRINT  SPACE  ON  COL 
; PRINT  SPACE  IF  NOT  COL    1 

;ONLY  SKIP  FIRST  BLANK 

[PRINT  A  SPACE 

[INCREMENT  COLUMN  COUNT 

[DELAY  BETWEEN  CHARACTERS 
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C206-  4C  26  C2 


C209- 
C20B- 
C20D- 
C20F- 
C212- 
C214- 
C216- 
C218- 
C21B- 
C21E- 
C220- 
C222- 
C224- 


A5  22 
FO  2C 
A9  OD 
20  FF  CI 
24  30 
10  05 
A9  OA 
20  FF  C1 
20  3A  C2 
A9  00 
85  23 
85  22 
A5  2E 


C226-  FO  11 
C228-  85  2B 
C22A-  A9  C8 
C22C-  85  2C 
C22E-  20  39  C2 
C231-  C6  2C 
C233-  DO  F9 
C235-  C6  2B 
C237-  DO  F1 
C239-  60 


C23A-  A5  2F 
C23C-  FO  FB 
C23E-  20  1B  8 A 
C241-  C5  2F 
C243-  DO  F9 
C245-  60 


C246-  24  31 

C248-  10  EF 

C24A-  A9  OD 

C24C-  20  47  8A 

C24F-  AO  20 

C251-  20  3C  8B 
C254-  BO  06 
C256-  CA 
C257-  DO  F8 
C259-  88 
C25A-  DO  F5 

C25C-  90  EC 
C25E-  A9  80 
C260-  4C  26  C2 


0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 

0073 

0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 

0083 

0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 


JMP  DELAY 

EOR 

;JSR  NEWLINE 

;ANY  END  OF  RECORD  DELAY  PROCESS  GOES  HERE 

;RTS 

NEWLINE 


LDA  »COL 
BEQ  RTS 
LDA  «0D 
JSR  OUTCHAR 
BIT  "LINEFEED 
BPL  =+6 
LDA  #$0A 
JSR  OUTCHAR 
JSR  WAIT 
LDA  #0 
STA  »C0L+1 
STA  »COL 
LDA  «LINEDEL 


; CHECK  COLUMN 

;D0N'T   PRINT  BLANK  LINES 

J OUTPUT  A  CR 

;NEED  A  LF  OUTPUT 

; OUTPUT  A  LF 

;GET  PROMPT  IF  ANY 


; START  OF  LINE 
;END  OF  LINE  DELAY 


;JSR  DELAY 
;RTS 

; DELAY:  DELAY  FOR  4«A  MS.   IF  A  IS  0  THEN  RETURN 


DELAY 


RTS 


BEQ  RTS 
STA  »DL00P1 
LDA  #200 
STA  "DL00P2 
JSR  RTS 
DEC  «DL00P2 
BNE  DELAY+8 
DEC  »DL00P1 
BNE  DELAY+4 
RTS 


;20  MICRO  SEC  EACH 
;EATUP  TIME 


;WAIT:  WAIT  FOR  A  PROMPT  CHARACTER  BEFORE  CONTINUING 
;T0  OUTPUT  DATA 

WAIT 

LDA  "PROMPT 
BEQ  RTS 
JSR  INCHR 
CMP  'PROMPT 
BNE  WAIT+4 
RTS 

SYNC:  GET  IN  SYNC  WITH  THE  RECIVER  IF  NECESSARY 
PROTOCALL:   TRANSMITTER:  SEND  A  CH  EVERY  SECOND 
UNTIL  A  CHARACTER  IS  RECIEVED,  THEN  SEND  A  NEWLINE 
AND  START  DATA.  RECIEVER:  WAIT  FOR  A  CR,  THEN  OUTPUT 
A  CHARACTER  TO  SIGNAL  TO  SIGNAL  READY  FOR  DATA. 

SYNC 


SSYNC2 


BIT  »SYNCFLAG 
BPL  RTS 
LDA  #$0D 
JSR  OUTCHR 
LDY  #$20 

JSR  TSTAT 

BCS  =+7 

DEX 

BNE  §SYNC2 

DEY 

BNE  SSYNC2 

BCC  SYNC+4 
LDA  #$80 
JMP  DELAY 


;D0  A  SYNC? 

JNO. 

; OUTPUT  A  CR 


;GET  TERMINAL  STATUS 


;A  SHORT  DELAY 
;THEN  PRINT  DATA 
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0125 

0126  ;PDT  "R2I0SUBS.S" 

0049  .FI  "R2C0NV.S" 


09DE  36B9-4097  R2C0NV.S 


C263- 
C265- 


A2  02 
DO  08 


C267-  A2  OK 
C269-  DO  OH 


C26B-  85  16 
C26D-  A2  01 
C26F-  86  1F 


C271- 
C273- 
C275- 
C277- 
C278- 
C279- 
C27A- 
C27C- 
C27E- 
C280- 
C282- 
C283- 
C285- 

C286- 
C288- 
C28A- 
C28C- 
C28D- 
C28E- 
C290- 
C292- 
C294- 
C296- 
C298- 
C29A- 
C29B- 
C29C- 
C29E- 
C2A0- 

C2A2- 
C2A3- 
C2A5- 
C2A7- 
C2AA- 
C2AB- 
C2AD- 


A9  00 
85  21 
A5  IF 
OA 
OA 
OA 

85  28 
A9  00 
A2  04 
95  U 
CA 

10  FB 
F8 

A4  1F 
A2  00 
36  16 
E8 
88 

DO  FA 
A2  00 
A4  1F 
B5  1A 
75  1A 
95  U 
E8 
88 

10  F6 
C6  28 
DO  E4 

D8 

A6  1F 
B5  1A 
20  B9  C2 
CA 

DO  F8 
A5  1A 


0001 
0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 

0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 

0063 

0064 
0065 
0066 


;PUT  "R2C0NV.S" 

;OUTDOUBLE:  OUTPUT  2  BYTES  AS  6  DIGITS  BCD 

OUTDOUBLE 


LDX  #2 

BNE  OUTBIN+4 


jODTQUAD: 
OUTQUAD 


;2  IN  AND  3  OUT 

OUTPUT  4  BYTES  AS  11  DIGITS  BCD 

LDX  #4  j 4  IN  AND  5  OUT 

BNE  OUTBIN+4 

;OUTBIN:  OUTPUT  A  BINARY  BYTE  AS  A  4  DIGIT  BCD 
; NUMBER  LEAVING  OFF  LEADING  ZEROS. 

OUTBIN 

STA  *BINARY  [STORE  IN  LOW  BYTE 

LDX  #1 

STX  »NBINARY         ;1  BYTE  IN 
;BNE  CONVERT  ; ALWAYS,  JUMP  TO  CONVERT 

;0UTPUT  NBINARY  BYTE  NUMBER  AS  (NBINARY+1 )«2  DIGIT 
;BCD  LEAVING  OFF  LEADING  ZEROS.   OUTBIN  CALLS 
;THIS  ROUTINE 

CONVERT 


gRD 


PRINT 


LDA  #0 

STA  'ZERO 

LDA  *NBINARY 

ASL  A 

ASL  A 

ASL  A 

STA  «CNTR2 

LDA  #0 

LDX  #4 

STA  «BCD,X 

DEX 

BPL  =-4 

SED 

LDY  »NBINARY 

LDX  #0 

ROL  'BINARY, X 

INX 

DEY 

BNE  gRD+4 

LDX  #0 

LDY  «NBINARY 

LDA  *BCD,X 

ADC  »BCD,X 

STA  «BCD,X 

INX 

DEY 

BPL  =-9 

DEC  »CNTR2 

BNE  SRD 

CLD 

LDX  'NBINARY 

LDA  «BCD,X 

JSR  OUTNUM 

DEX 

BNE  =-7 

LDA  «BCD 


[LEADING  ZERO  FLAG 


[NUMBER  OF  BITS 
[BIT  COUNTER 
[ZERO  RESULT 


[START  CONVERSION 
[NUMBER  OF  BYTES 
[SHIFT  OUT  MSB 


[ADD  CARRY  AND 
[MULT  BY  2  IN  BCD 


[NBINARY+1  BCD  DIGITS 


[NUMBER  OF  BYTES- 1 


[LAST  2  DIGITS 
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C2AF-  24  21 


C2B1-  30  0 
-  B3-  V  ' 
C2B6- 


C2B3 


C  D8  C2 
4C  DO  C2 


C2B9-  48 
C2BA-  4A 
C2BB-  4A 
C2BC-  4A 
C2BD-  4A 
C2BE-  20  C2  C2 
C2C1-  68 

C2C2-  DO  07 
C2C4-  24  21 
C2C6-  30  03 
C2C8-  4C  F4  C1 
C2CB-  C6  21 
C2CD-  4C  E9  C2 


C2D0-  48 
C2D1-  4A 
C2D2-  4A 
C2D3-  4A 
C2D4-  4A 
C2D5-  4C  E5  C2 


C2D8- 
C2D9- 
C2DA- 
C2DB- 
C2DC- 
C2DD- 
C2DF- 
C2E2- 

C2E5- 
C2E8- 

C2E9- 
C2EB- 
C2ED- 
C2EF- 
C2F1- 
C2F3- 


C2F6- 
C2F8- 
C2FA- 
C2FC- 
C2FE- 
C300- 
C302- 
C304- 
C305- 
C307- 
C309- 
C30B- 
C30D- 
C30F- 
C311- 


48 

4A 

4A 

4A 

4A 

DO  06 

20  F4  C1 

4C  E8  C2 


20 

E9 

C2 

68 

29 

OF 

C9 

OA 

90 

02 

69  06 

69 

30 

4C 

FF 

C1 

A9  50 
85  47 
A9  03 
85  48 
AO  06 
B1  04 
85  3E 


04 
IF 

IF 


85  40 
A9  00 
85  3D 
85  45 


;OUTHEXZ:  OUTPUT  A  BYTE  WITH  LEADING  ZEROS 


;0UTHEX:  OOTPDT  A  BYTE  WITHOUT  LEADING  ZEROS 


0067 
0068 
0069 
0070 
0071 
0072  OUTNOM 

0073 

0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090  OOTHEXZ 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100  OOTHEX 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109  00THEX2 

0110 

0111 

0112  NIBASC 

0113 

0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 

0123 

0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 


BIT  *ZERO 
BMI  =+4 
JMP  OUTHEX 
JMP  OUTHEXZ 


; PRINT  AT  LEAST  1  DIGIT 


;HAS  BEEN  ZEROS  TO  HERE 


PHA 
LSR 
LSR 
LSR 
LSR 
JSR 
PLA 


A 
A 
A 
A 
=+4 


BNE  =+8 
BIT  »ZERO 
BMI  =+4 
JMP  BLANK 
DEC  »ZERO 
JMP  NIBASC 


;HIGH  CHAR 
;LOW  CHAR 


; CHECK  IF  0  CAN  BE  PRINTED 
; OUTPUT  THE  DIGIT  EVEN  0 
; OUTPUT  CHAR  AND  RETURN 
; OUTPUT  ZEROS  FROM  NOW  ON 
; OUTPUT  CHAR  AND  RETURN 


PHA 
LSR 
LSR 
LSR 
LSR 


;HIGH  NIBBLE 


JMP  0UTHEX2 


PHA 

LSR  A 

LSR  A 

LSR  A 

LSR  A 

BNE  0UTHEX2 

JSR  BLANK 

JMP  0UTHEX2+3 

JSR  NIBASC 
PLA 

AND   #$0F 
CMP  tlOk 
BCC  =+3 
ADC  jf$06 
ADC  #T0 
JMP  OUTCHAR 


;HIGH  NIBBLE 


;SKIP  SPACE  CALL 
jSKIP  NIBASC  CALL 
; OUTPUT  HEX  BYTE 


;HEX  A-F  DIGIT 

;A-F  OFFSET 
[CONVERT  TO  ASCII 
; OUTPUT  THE  DIGIT 


;AVGFACT:  CALCUATE  THE  FACTOR  TO  MULTIPLY 
;BY  THE  ANALOG  SUMS  TO  GET  AVERAGE  VOLTS. 

AVGFACT 


#*50 
•FOPMSW 


LDA 

STA 

LDA  #3 

STA  »FOPEXP 

LDY  #6 

LDA  ( CURRENT ),Y 

STA  »FPNSW 

INY 

LDA  ( CURRENT ),Y 

STA  *FPMSW 

LDA  #15 

STA  *FPACCE 

LDA  #0 

STA  »FPLSW 

STA  «FOPLSW 


;5  VOLTS 

; COUNT  TO  DIVIDE  BY 

;ITS  LESS  THAN  32000 
;15  BITS  WITHOUT  SIGN 
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C313-  85  46     0139  STA  «FOPNSW 

C315-  20  CJ  C4  0140  JSR  FPNORM 

C318-  20  A6  C5  0141  JSR  FPDIV 

C31B-  A2  03     0142  LDX  #3 

C31D-  B5  3D     0143  LDA  »FPLSW,X 

C31F-  95  12     0144  STA  *DIVTMP,X 

C321-  CA        0145  DEX 

C322-  10  F9     0146  BPL  =-6 

C324-  60       0147  RTS 

0148 

0149  ;POT  "R2C0NV.S" 

0050  .FI  "R2DAT0UT.S" 

0BE8  36B9-42A1   R2DAT0DT.S 

;PUT  "R2DAT0UT.S" 


[NORMALIZE  COUNT  TO  FP 
;4  BYTES 


;OUTHEAD:  PRINTS  THE  HEADER  INFO 


C325- 
C327- 
C32A- 
C32C- 
C32E- 
C331- 
C333- 
C336- 
C338- 
C33B- 
C33D- 
C33F- 
C341- 
C343- 

C346-  20  25 
C349-  AO  04 
C34B-  A2  02 
C34D-  B1  00 
C34F-  95  24 
C351-  88 
C352-  CA 
C353-  10  F8 
C355-  A9  08 
C357-  85  27 
C359-  20  B8  C1 
C35C-  20  6B  C2 
C35F-  C6  27 
C361-  DO  F6 
C363-  4C  09  C2 


A9  46 
20  FF  CI 
A5  2A 
E6  2A 
20  DO  C2 
A9  4C 
20  FF  C1 
A5  10 
20  DO  C2 
A9  20 
24  11 
10  02 
A9  45 
4C  FF  C1 


C3 


C366- 
C368- 
C36B- 
C36E- 
C371- 
C374- 
C377- 
C378- 
C37A- 
C37D- 
C37F- 
C382- 
C384- 
C387- 


A2  02 
20  F4  C1 
20  B8  C1 
20  D8  C2 
20  8A  C3 
20  8A  C3 
CA 

DO  EE 
20  B8  C1 
85  16 
20  B8  C1 
85  17 
20  63  C2 
4C  09  C2 


C38A-  A9  2F 
C38C-  20  FF  C1 


0001 

0002 

0003 

0004 

0005  OUTLAB 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020  ODTHEAD 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

OO38 

0039  OOTDATE 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055  OOTDTB 

0056 

0057 


LDA 
JSR 
LDA 
INC 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
BIT 
BPL 
LDA 
JMP 

JSR 

LDY 
LDX 
LDA 
STA 
DEY 
DEX 
BPL 
LDA 
STA 
JSR 
JSR 
DEC 
BNE 
JMP 


#'F 

OOTCHAR 

•COUNT 

•COUNT 

OUTHEXZ 

#'L 

OUTCHAR 

•LABEL 

OUTHEXZ 

*' 

•ERROR 

=+3 

#'E 

OUTCHAR 

OUTLAB 

#4 

#2 

(DATA).Y 

•ADCHAN.X 


n7 

•CNTR1 

GETB 

OUTBIN 

•CNTR1 

=-9 

NEWLINE 


; PRINT  FILE  NAME 

; SIMPLE  FILE  COUNTER 

[TAPE  LABEL 

; SPACE 

;TAPE  READ  ERROR? 

J  INDICATE  ERROR 


; PRINT  LABEL 

;SAVE  DATA  COUNTS  FOR  LATE 


; OUTPUT  8  BYTES  OF  HEADER 


;GET  NEXT  BYTE 
; OUTPUT  AS  BCD 


;PUT  A  CR 


JOUTDATE:  PTINTS  THE  DATE  AND  COUNT  INFO  FROM  A  RECORD 


LDX  #2 
JSR  BLANK 
JSR  GETB 
JSR  OUTHEX 
JSR  OUTDTB 
JSR  OUTDTB 
DEX 

BNE  OUTDATE+2 
JSR  GETB 
STA  "BINARY 
JSR  GETB 
STA  «BINARY+1 
JSR  OUTDOUBLE 
JMP  NEWLINE 


LDA  VI 
JSR  OUTCHAR 


;2  SECTIONS 
;SEPERATE  DATE 
;HOUR 

; MINUTE 
;  SECOND 


;  COUNT 


;BYTE  SEPERATOR 

; OUTPUT  SEPERATION  CHAR 
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C38F-  20  B8  C1 
C392-  4C  DO  C2 


C395- 
C397- 
C399- 
C39A- 
C39C- 
C39F- 
C3A1- 
C3A2- 
C3A4- 
C3A6- 
C3A8- 
C3AA- 
C3AC- 
C3AE- 
C3B0- 
C3B1- 
C3B3- 


85  27 
DO  01 
60 

A2  00 
20  B8  C1 
95  3D 
E8 

EO  04 
DO  F6 
24  31 
70  OC 
A2  03 
B5  12 
95  45 
CA 

10  F9 
20  03  C5 


C3B6-  20  C9  C3 
C3B9-  A5  22 
C3BB-  C9  41 
C3BD-  90  03 
C3BF-  20  " 
C3C2-  C6 
C3C4-  DO  _ 
C3C6-  4C  09  C2 


09  C2 


C3C9- 
C3CC- 
C3CF- 
C3D1- 
C3D3- 
C3D6- 
C3D7- 
C3D9- 
C3DB- 
C3DD- 
C3DF- 
C3E1- 
C3E4- 
C3E5- 
C3E6- 
C3E8- 


C3E9- 
C3EB- 
C3ED- 
C3EE- 
C3F1- 
C3F3- 

C3F6- 
C3F9- 
C3FC- 
C3FE- 
C400- 
C402- 
C405- 
C407- 


20  95  C6 
20  F4  C1 
A2  01 
B5  62 
20  FF  C1 
E8 

EO  08 
DO  F6 
A6  62 
AO  04 
B5  5F 
20  FF  C1 
E8 
88 

DO  F7 
60 


85  27 
DO  01 
60 

20  B8  C1 
85  16 
20  B8  C1 
8D  17  00 
20  63  C2 

22 

46 

0? 

0' 


A5 

C909 
20 

C6  27 
DO  E5 


C2 


0058 
0059 
0060 

0061  ;00TAD:  AVERAGES  AND  PRINTS  FLOATING  POINT  VALUES 

0062  jFROM  THE  ADC  READINGS. 
0063 

0064  OOTAD 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 

0082  gRE 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 

0092  ;FPRINT:    PRINT  THE  NUMBER   IN  THE  FPACC  IN  FLOATING 

0093  ;P0INT  FORMAT. 
0094 

0095  FPRINT 
0096 
0097 
0098 
0099 
0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113  ;OUTDG:  PRINTS  DIGITAL  CHANNEL  COUNTS 

0114 

0115  OUTDG 

STA  «CNTR1 

BNE  =+2 

RTS 

JSR  GETB 

STA  »BINARI 

JSR  GETB 

STA  BINARY+1 

JSR  OUTDOUBLE 

LDA  «COL 

CMP  #MAXDG 

BCC  =+4 

JSR  NEWLINE  ; START  NEW  LINE 

DEC  «CNTR1  ; NUMBER  LEFT 

BNE  0UTDG+5  ; OUTPUT  NEXT  t 


JSR  GETB 
JMP  OUTHEXZ 


STA  *CNTR1 

BNE  =+2 

RTS 

LDX  #0 

JSR  GETB 

STA  »FPLSW,X 

INX 

CPX  #4 

BNE  =-9 

BIT  *SYNCFLAG 

BVS  SRE 

LDX  #3 

LDA  «DIVTMP,X 

STA  »FOPLSW,X 

DEX 

BPL  r-6 

JSR  FPMULT 

JSR  FPRINT 
LDA  «COL 
CMP  #MAXAD 
BCC  =+4 
JSR  NEWLINE 
DEC  «CNTR1 
BNE  OUTAD+5 
JMP  NEWLINE 


JSR  FPOUT 

JSR  BLANK 

LDX  #1 

LDA  *OUTBUF,X 

JSR  OUTCHAR 

INX 

CPX  #8 

BNE  =-9 

LDX  «OUTBUF 

LDY  #4 

LDA  *OUTBUF-3,X 

JSR  OUTCHAR 

INX 

DEI 

BNE  =-8 

RTS 


;GET  NEXT  BYTE 
; OUTPUT  BYTE 


; NUMBER  OF  VALUES 

;FP  INDEX  PNTR 

J  PUT  IN  FPACC 

;4  BYTES  PER  FP  NUM 

; AVERAGE? 

;NO. 

;LOAD  DIVIDE  FACTOR 


; AVERAGE 
; PRINT  RESULT 
;END  OF  LINE  YET? 
; START  NEW  LINE 

;END  OF  LINE 


; CONVERT  TO  DECIMAL 

;PUT  SPACE 

; PRINT  OUT  MANTISA 

; OUTPUT  CHAR 

;END  OF  VALID  DATA 

; LOCATION  OF  EXP 

.•EXPONENT 


0116 
0117 
0118 
0119 
0120 
0121 
0122 

0123 

0124 

0125 

0126 
0127 
0128 
0129 


; NUMBER  OF  VALUES 


;GET  16BIT  WORK 

; OUTPUT  NUMBER  IN  BCD 
; CHECK  COLUMN  NUMBER 
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C409-  4C  09  C2 


C40C- 
C40E- 
C410- 
C411- 
C414- 
d(16- 
C419- 
C41B- 

C41E- 
C420- 
01(23- 
01(25- 
01(26- 
C428- 
C42A- 
C42D- 
C42F- 
C431- 
C433- 
C436- 
01(38- 
C43A- 


C43D- 
C440- 

C443- 
C446- 
0448- 
C44A- 
C44C- 
C44F- 


C1 
01 


85  27 
DO  01 
60 

20  B8 
85  16 
20  B8 
85  17 
20  63  02 

A2  00 

20  B8  01 

IV6 

EO  04 
DO  F6 
20  67  02 
A5  22 
09  41 
90  03 
20  09  C2 
06  27 
DO  E4 
4C  09  C2 


20  F4  01 
20  B8  01 
20  DO  02 
A5  22 
09  2F 
90  F1 
20  09  02 
40  3D  04 


0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0051 


SRC 


JMP  NEWLINE 

;OUTPL:  OUTPUT  PDLSE  CNTERS.  THE  FIRST  NUMBER 
;IS  A  2  BYTE  CLOCK  CNT  FOLLOWED  BY  4  BYTE  PULSE 
; COUNTS  FOR  EACH  CHANNEL 

OUTPL 

STA  *CNTR1 

BNE  =+2 

RTS 

JSR  GETB 

STA  "BINARY 

JSR  GETB 

STA  »BINARY+1 

JSR  OUTDOUBLE 

LDX  #0 
JSR  GETB 
STA  'BINARY ,X 
INX 

CPX  #4 
BNE  §RC+2 
JSR  OUTQUAD 
LDA  »C0L 
CMP  #MAXPL 
BCC  =+4 
JSR  NEWLINE 
DEC  *CNTR1 
BNE  gRC 
JMP  NEWLINE 

;0UTDUMP  —  DUMP  ENTIRE  TAPE  FILE  CONTENTS  IN 
; HEXADECIMAL  FORMAT 

OUTDUMP 


;  OUTPUT  NUMBER 


; OUTPUT  4  BYTES 


JSR  BLANK 
JSR  GETB 
JSR  OUTHEXZ 
LDA  »COL 
CMP  #MAXDUMP 
BCC  OUTDUMP 
JSR  NEWLINE 
JMP  OUTDUMP 

;PUT   "R2DAT0UT.S" 

.FI  D26    "GPSUBS.S" 


; SPACE  BETWEEN  BYTES 

;GET  BYTE 

; OUTPUT  BYTE  WITH  ZEROS 

;MAX  LINE  LENGTH 

; NEWLINE 
;NEXT  BYTE 


0883  36B9-3F3C  GPSUBS.S 


C452-  AQ  00 
C454-  A8 
C455-  91  37 
C457-  C8 
C458-  CA 
C459-  DO  FA 
C45B-  60 


C45C-  AO  00 
C45E-  B1  35 
C460-  91  37 
C462-  C8 
C463-  CA 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 


;PUT  "GPSUBS.S" 

;CLEAR  MEMORY.  A,X,Y.  CLEARS  X  BYTES 
;0F  MEMORY  TO  ZERO  AT  «T0PNT. 

CLRMEM 


LDA  #$00 

TAY 

STA  (TOPNT).Y 

INY 

DEX 

BNE  CLRMEM+3 

RTS 


;  CLEAR  MEM  LOC 
;N0T  ZERO,  CONT  CLR 


;MOVE  MEMORY.  A,X,Y.  MOVE  X  BYTES 
;FROM  »FMPNT  TO  *T0PNT.  LIMIT=256 . 


MOVIND 


LDY  #400 

LDA  (FMPNT).Y 

STA  (TOPNT  ,Y 

INY 

DEX 
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C464-  DO  F8 
C466-  60 


C467-  F6  00 
C469-  DO  04 
C46B-  E8 
C46C-  88 
C46D-  DO  F8 
C46F-  60 


C470-  38 
CA71-  B5  00 


C473- 
C475- 
C477- 
C479- 


E9  01 
95  00 
BO  04 
E8 


C47A-  88 
CH7B-  DO  F3 
C47D-  60 


C47E-  18 

C47F-  36  00 
C481-  E8 
C482-  88 
C483-  DO  FA 
C485-  60 


C486-  18 
C487-  90  06 

C489-  36  00 
C48B-  08 
C48C-  76  00 
C48E-  28 
C48F-  76  00 
C491-  CA 
C492-  88 
Cl(93-  DO  FA 
C495-  60 


C496-  18 

CI 97-  90  01 

C499-  38 
C49A-  A  9  FF 
C49C-  55  00 


0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

OO83 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 


BNE  M0VIND+2 
RTS 

; INCREMENT  MEMORY.  X,Y.  INCREMENT  A 
jMULTI  PREC  NUMBER  Y  BYTES  LONG  AT  X 
;Z  FLAG  SET  IF  RESULT  =  0 

INCMEM 

INC  «$00.X 

BNE  INCMEM+8 

INX 

DEY 

BNE  INCMEM 

RTS 

;DECREMENT  MEMORY.  A.X.Y.  DEC  MDLTI 
;PREC  NUMBER  OF  Y  BYTES  AT  X. 
[CARRY  CLR  IF  RESULT=-1 

DECMEM 

SEC 

LDA  «$00,X 

SBC  #401 

STA  »|00,X 

BCS  DECMEM+13 

INX 

DEY 

BNE  DECMEM 

RTS 

; ROTATE  LEFT.  X,Y.  ROTATE  MULTI  PREC 
; NUMBER  LEFT  1  BIT.  X  IS  LOC  OF  LSB 
;  AND  Y  IS  #  OF  BYTES. 


ROTATL 
ROTL 


CLC 

ROL  »$00,X 

INX 

DEY 

BNE  ROTL 

RTS 


; ROTATE  OR  ARITH  SHIFT  RIGHT.  X.Y. 
i ROTATE  BYTE  RIGHT  1  BIT.  Y  IS  t   OF 
; BYTES,  X  IS  PNTR  TO  MSBYTE 

ROTATR 


; ROTATE  IN  ZERO  BIT 


ARSHR 


CLC 

BCC  ARSHR+6 

ROL  »$00,X 

PHP 

ROR  *$O0,X 

PLP 

ROR  »$00,X 

DEX 

DEY 

BNE  ARSHR+6 

RTS 


; SHIFT  IN  ZERO  BIT 
; SHIFT  IN  SIGN  BIT 


;SIGN  BIT  IN  CARRY 
; ROTATE  THE  BYTE 


JCOMPLEMENT  MEMORY  (1  OR  2).  A.X.Y. 
; COMPLEMENT  MULTI  PREC  BYTE  OF  Y 
; BYTES,  AT  LOC  X. 

C0MPL1 


COMPLM 


CLC 

BCC  COMPLM+1 

SEC 

LDA  #$FF 

EOR  »J00,X 


; CLEAR  CARRY  FOR  1'S  COMP 
;SET  CARRY  FOR  2'S  COMP 
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C49E-  69  00 
MAO-  95  00 
C4A2-  E8 
C4A3-  88 
C4A4-  DO  F4 
C4A6-  60 


C4A7-  AO  00 
C4A9-  18 
C4AA-  B1  37 
MAC-  71  35 
C4AE-  91  37 
C4B0-  C8 
C4B1-  CA 
C4B2-  DO  F6 
C4B4-  60 


C4B5-  AO  00 
C4B7-  38 
C4B8-  B1  37 
C4BA-  F1  35 
C4BC-  91  37 
C4BE-  C8 
C4BF-  CA 
C4C0-  DO  F6 
C4C2-  60 


0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
D104 


0 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122  SUBBER 

0123 

0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 


ADC  #400 

STA  »i00,X 

INX 

DEY 

BNE  COMPLM+1 

RTS 

; ADDER.  A.X.Y.  ADD  MULTI  PREC  NOMS 
JIN  •TOPNT  AND  »FMPNT.  STORE  RESULT 
;IN  *TOPNT. 


ADDER 

LDY  #$00 

CLC 

LDA  ( TOPNT  ),Y 

ADC  (FMPNT  ,Y 

STA  (TOPNT), Y 

INY 

DEX 

BNE  ADDER+3 

RTS 

; SUBBER.  A.X.Y.  SUBTRACTS  NDM  IN 
;»FMPNT  FROM  «TOPNT  AND  LEAVES  RESULT 
J  IN  »TOPNT. 


LDY  #$00 

SEC 

LDA  ( TOPNT ),Y 

SBC  ( FMPNT ),Y 

STA  ( TOPNT ),Y 

INY 

DEX 

BNE  SUBBER+3 

RTS 


0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0052 


COMPARE  MEMORY.  A.Y.  Y  IS  LENGTH 
OF  NUMS,  "FMPNT  4  »TOPNT  ARE  STRING 
PNTRS.   CMPS  LAST  BYTE  FIRST  ASSUME 
NUMBERS. 

TYA 

BEQ  CMPMEM+7  ;END  OF  DATA 
CMPMEM 
DEY 

LDA  ( FMPNT ),Y 
CMP  (TOPNT ), Y 

BEQ  CMPMEM-3  :IF  EQUAL  CONTINUE 
RTS  ;C  4  Z  FLGS  SET 

PUT  "GPSUBS.S" 

.FI  D26  "FPNORM.S" 


032F  36B9-39E8  FPNORM.S 


0001  ;PUT  "FPNORM.S" 
0002 

0003  ; FLOATING  POINT  NORMALIZATION.  A.X.Y. 

0004  ; NORMALIZES  FPNUM  IN  FPACC  WITH  4 

0005  ; BYTES  IN  THE  MANTISSA. 


C4C3-  A5 
C4C5-  85 
C4C7-  10 
C4C9-  AO 
C4CB-  A2 
C4CD-  20 


C4 


C4D0-  A5  3F 
C4D2-  05  3E 


0006 

0007  FPNORM 
0008 

LDA  »FPMSW 

0009 

STA  «TSIGN 

0010 

BPL  0ACZEHT 

0011 

LDY  #$04 
LDX  #FPLSWE 

0012 

0013 

0014  8ACZERT 

JSR  COMPLM 

0015 

LDA  "FPMSW 

0016 

ORA  «FPNSW 

;SAVE  SIGN  BIT 
;COMPLMENT  IF  NEGATIVE 

; CHECK  FOR  FPACC  ==  0 
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C4D4- 
C4D6- 
C4D8- 
C4DA- 

C4DC- 

C4DD- 
C4DF- 
C4E1- 
C4E3- 
C4E5- 
C4E7- 
C4EA- 
C4EC- 

C4EF- 
C4F1- 
C4F3- 
C4F6- 

C4F8- 
C4FA- 
C4FC- 
C4FE- 
C500- 


OAFE  36B9-41B7  FPMDL.S 


05  3D 

0017 
0018 

ORA  »FPLSW 

05  3C 

ORA  «FPLSWE 

DO  03 

0019 

BNE  gACNONZ 

85  40 

0020 
0021 

gNORMEX 

STA  «FPACCE 

JFPACC=0  CLR  EXP 

60 

0022 
0023 
0024 

eACNONZ 

RTS 

;EXIT  RESULT  =  0 

24  3F 

BIT  »FPMSW 

30  OE 

0025 

BMI  gMINUSI 

70  15 

0026 

BVS  gACCSET 

;IF  SO,  JUSTIFIED 

A2  3C 

0027 
0028 

LDX  #FPLSWE 

j SHIFT  LEFT  1  BIT 

AO  04 

LDY  #$04 
JSR  ROTATL 

20  7E 
C6  40 

C4 

0029 

0030 

DEC  »FPACCE 

; ADJUST  EXP 

4C  DD 

C4 

0031 
0032 

8MINUS1 

JMP  SACNONZ 

; CONTINUE  ROTATING 

A2  3F 

0033 
0034 

LDX  #FPMSW 

;THE  NUMBER  IS  -1.0000000 

AO  03 
20  86 

LDY  #3 
JSR  ROTATR 

C4 

0035 

E6  40 

0036 
0037 
0038 

SACCSET 

INC  «FPACCE 

A5  3A 

LDA  «TSIGN 

J  IS  SIGN  POS 

10  EO 

OO39 
0040 

BPL  §NORMEX 

;YES,  RETURN 

AO  03 

LDY  #$03 

;NO,  COMPLEMENT  AGAIN 

A2  3D 

0041 

LDX  #FPLSW 

4C  99 

C4 

0042 
0043 
0044 

JMP  COMPLM 

J  PUT  "FPNORI!  :;" 

0053 

.FI  D26  "FPMUL.S" 

C503- 
C506- 

20  6F  C5 

A5  48 

C508- 

38 

C509- 

65  40 

C50B- 

85  40 

C50D- 

A9  17 

C50F- 

85  39 

C511- 
C513- 
C515- 
C518- 

C51A- 
C51C- 
C51E- 
C520- 
C522- 
C524- 

C527- 
C529- 
C52B- 
C52E- 
C530- 
C532- 
C534- 
C536- 
C539- 
C53B- 
C53D- 
C53E- 
C540- 
C542- 


A2  3F 
AO  03 
20  86 
90  OD 


MULTIP 


C4 


A2  45 

86  35 
A2  4D 

86  37 

A2  03 

20  A7 

C4 

A2  4F 

AO  04 

20  86 

C4 

C6  39 

DO  DF 

A2  4F 

AO  04 

20  86 

C4 

A2  4C 

AO  04 

18 

A9  80 
24  4F 

70  01 

;PUT  "FPMUL.S" 
; FLOATING  POINT  MULTIPLY. 
; MULTIPLY  NUMBER  IN  FPACC 
;AND  LEAVES  THE  RESULT  IN 

FPMULT 

JSR  CKSIGN 

LDA  »FOPEXP 

SEC 

ADC  »FPACCE 

STA  *FPACCE 

LDA  #$17 

STA  »CNTR 

LDX  #FPMSW 
LDY  #$3 
JSR  ROTATR 
BCC  NADOPP 

LDX  #F0PLSW 
STX  »FMPNT 
LDX  #W0RK4 
STX  «TOPNT 
LDX  #$3 
JSR  ADDER 

LDX  #W0RK6 
LDY  #$4 
JSR  ROTATR 
DEC  »CNTR 
BNE  MULTIP 
LDX  #WORK6 
LDY  #$4 
JSR  ROTATR 
LDX  #WORK3 
LDY  #$4 
CLC 

LDA  #$80 
BIT  «WORK6 
BVS  CKRND 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019  ADOPP 

0020 

0021 

0022 

0023 

0024 

0025 

0026  NADOPP 

0027 

0028 

0029 

0030 

0031 

0032 

OO33 

0034 

0035 

0036 

0037 

0038 

OO39 

0040 


t6  FPOP 
FPACC 


SETUP  &   CHK  SIGN 
GET  FPOP  EXP 
ADD  1  FOR  COMPEN 
ADD  FPOP  EXP 
SAVE  RESULT  EXP 
SET  BIT  COUNTER 
STORE  BIT  CNTH 

SET  PNTR  TO  FPACC  MS  BYTE 
SET  PRECISION  CNTR 
ROTATE  FPACC  RT 
CARRY=0, DON'T  ADD  PARTIAL 

PNTR  TO  LS  BYTE  OF  MULTIP 

STORE  POINTER 

PNTR  TO  LS  BYTE  OF  PARTIA 

ONLY  3  BYTES  NEED  ADDED 
ADD  MULTIPLICAND  TO  PARTI 

SET  PNTR  TO  MS  BYTE  OF  PA 
SET  PREC  CNTR 
ROTATE  PART  PROD  RT 

NOT  0,  CONT  MULTIPLYING 
ELSE.  SET  PNTR  TO  PART  PR 
SET  PREC  CNTR 
MAKE  ROOM  FOR  ROUNDING 
SET  PNTR  TO  24TH  BIT  OF  P 
SET  PREC  CNTR 
CLEAR  FOR  ADDITION 
24TH  BIT  TO  RND  IF  >.5 
IS  MANTISA  >.5 
IF  SO  THEN  ROUND 
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C544-  4A 

0041 

LSR  A 

0042 

CKRND 

C545-  24  4C 

0043 

BIT  »W0RK3 

C547-  FO  OA 

0044 

BEQ  PREXFR 

0045 

CROUND 

C549-  75  00 

0046 

ADC  •400.X 

C54B-  95  00 

0047 
0048 

STA  "iOO.X 

C54D-  A9  00 
C54F-  E8 

LDA  #$0 

0049 

INX 

C550-  88 

0050 

DEY 

C551-  DO  F6 

0051 

BNE  CROUND 

0052 

PREXFR 

C553-  A2  3C 

0053 
0054 

LDX  #FPLSWE 

C555-  86  37 
C557-  A2  4C 

STX  *TOPNT 

0055 

LDX  #W0RK3 

C559-  86  35 
C55B-  A2  04 

0056 

STX  »FMPNT 

0057 
0058 

LDX  #$4 

EXMLDV 

C55D-  20  5C  C4 

0059 

JSR  MOVIND 

C560-  20  C3  C4 

0060 

JSR  FPNORM 

C563-  A5  3B 

0061 

LDA  'SIGNS 

C565-  DO  07 

0062 

BNE  MULTEX 

C567-  A2  3D 

0063 

0064 

LDX  #FPLSW 

C569-  AO  03 

LDY  #$3 
JSR  COMPLM 

C56B-  20  99  C4 

0065 

0066 

MULTEX 

C56E-  60 

0067 
0068 

STS 

CKSIGN 

C56F-  A9  00 

0069 

LDA  #$0 

STA  »T0PNT+1 

C571-  85  38 

0070 

C573-  85  36 

0071 

STA  «FMPNT+1 

C575-  A9  49 

0072 

LDA  #WORK0 

C577-  85  37 
C579-  A2  08 

0073 
0074 

STA  »TOPNT 

LDX  #$8 

C57B-  20  52  C4 
C57E-  A9  41 
C580-  85  37 
C582-  A2  04 

0075 

JSR  CLRMEM 

0076 

LDA  #MCANDO 

0077 
0078 

STA  »TOPNT 

LDX  #$4 

C584-  20  52  C4 

0079 
0080 

JSR  CLRMEM 

C587-  A9  01 

LDA  #$1 

C589-  85  3B 

0081 

STA  "SIGNS 

C58B-  A5  3F 

0082 

LDA  »FPMSW 

C58D-  10  09 

0083 
0084 

BPL  OPSGNT 

NEGFPA 

C58F-  C6  3B 

0085 

DEC  »SIGNS 

C591-  A2  3D 

0086 

LDX  #FPLSW 

C593-  AO  03 

0087 
0088 

LDY  #$3 
JSR  COMPLM 

C595-  20  99  C4 

0089  OPSGNT 

C598-  A5  47 

0090 

LDA  «FOPMSW 

C59A-  30  01 

0091 

BMI  NEGOP 

C59C-  60 

0092 

RTS 

0093 
0094 

HEGOP 

C59D-  C6  3B 
C59F-  A2  45 

DEC  "SIGNS 

0095 

LDX  0FOPLSW 

C5A1-  AO  03 

0096 

LDY  #$3 

C5A3-  4C  99  C4 

0097 
0098 

JMP  COMPLM 

;P0T  "FPMOL..V 

0054 

.FI  D26  "FPDIV.S" 

0919  36B9-3FD2  FPDIV.S 
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;24BIT  IS  RT  ONE 

;NEED  RNDING? 
;IF  ZERO  SKIP  RND 

;ADD  WITH  CARRY  TO  PROPAGA 

; STORE  PART  PROD 

;CLR  A  FOR  NEXT  ADD 

; INCREMENT  INDEX  PNTR 

; DECREMENT  CNTR 

;NOT  0,  ADD  NEXT  BYTE 

;SET  PNTR  TO  FPACC  LSW-1 

; STORE  IN  TOPNT 

;SET  PNTR  TO  PART  PROD 

; STORE  IN  FMPNT 

;SET  PREC  CNTR 

;MOVE  PART  PROD  TO  FPACC 

; NORMALIZE  RESULT 

;GET  SIGN  STORAGE 

(IF  NOT  0,  SIGN  IS  POS 

;ELSE,  SET  PNTR  TO  FPACC  L 

;SET  PREC  CNTR 

; COMPLEMENT  RESULT 

;EXIT  FPMULT 

;SET  PAGE  PORTION  OF  POINT 

; STORE  IN  TOPNT 

; STORE  IN  FMPNT 

;SET  PNTR  TO  WORK  AREA 

; STORE  IN  TOPNT 

;SET  PREC  CNTR 

;SET  WORK  AREA 

;SET  PNTR  TO  MULTIPLICAND 

; STORE  IN  TOPNT 

;SET  PREC  CNTR 

; CLEAR  MULTIPLICAND  STORAG 

; INITIALIZE  SIGN  INDICATOR 

;BY  STORING  1  IN  SIGNS 

; FETCH  FPACC  MS  BYTE 

[POSITIVE,  CHECK  FPOP 

;IF  NEG,  DECREMENT  SIGNS 
;SET  PNTR  TO  FPACC  LS  BYTE 
;SET  PREC  CNTR 
;MAKE  POS  FOR  MULT 

;IS  FPOP  NEG? 

;TES, COMPLEMENT  VALUE 

;ELSE  RETURN 

; DECREMENT  SIGNS  INDICATOR 
;SET  PNTR  TO  FPOP  LS  BYTE 
;SET  PREC  CNTR 
; COMPLEMENT  FPOP  AND  RETUR 


C5A6- 
C5A9- 
C5AB- 


20  6F 
A5  3F 
FO  22 


C5 


0001  ;PUT  "FPDIV.S" 

0002  ;FLOATING  POINT  DIVIDE.  A.X.Y. 

0003  ; DIVIDES  NUMBER  IN  FPACC  BY  NUMBER 

0004  :IN  FPOP  AND  LEAVES  RESULT  IN  FPACC 

0005  FPDIV 

0006  JSR  CKSIGN  ; CLEAR  WORK  AREA 
LDA  »FPMSW           ;CHCK  FOR  DIV  BY 


C5AD-  A5  48 


0008 

0009  SUBEXP 

0010 


BEQ  DERROR 
LDA  »FOPEXP 


;DIV=0,DIV  BY  0  ERROR 
;FET  DIVIDEND  EXPONENT 
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C5AF-  38 

0011 

SEC 

C5B0-  E5  40 

0012 

SBC  »FPACCE 

C5B2-  85  40 

0013 
0014 

STA  «FPACCE 

C5B4-  E6  40 

INC  »FPACCE 

0015  SETDCT 

C5B6-  A9  17 

0016 

LDA  #$17 

C5B8-  85  39 

0017 

0018  DIVIDE 

STA  »CNTR 

C5BA-  20  13  C6 
C5BD-  30  11 
C5BF-  A2  45 

0019 

JSR  SETSOB 

0020 

BMI  NOGO 

0021 

LDX  #FOPLSW 

C5C1-  86  37 

0022 

STX  *T0PNT 

C5C3-  A2  49 

0023 

0024 

LDX  #WORK0 

C5C5-  86  35 

STX  »FMPNT 

C5C7-  A2  03 

0025 

LDX  #*3 

JSR  MOVIND 

C5C9-  20  5C  C4 

0026 

C5CC-  38 

0027 
0028 

SEC 

C5CD-  BO  02 

BCS  QUOROT 

0029  DERROR 

C5CF-  60 

0030 
0031  NOGO 

RTS 

C5D0-  18 

0032 

0033  QUOROT 

0034 

CLC 

C5D1-  A2  4D 

LDX  #WORK4 

C5D3-  AO  03 

0035 

LDY  #$3 
JSR  ROTL 

C5D5-  20  7F  C4 
C5D8-  A2  45 

0036 

0037 
0038 

LDX  #FOPLSW 

C5DA-  AO  03 

LDI  #$3 
JSR  ROTATL 

C5DC-  20  7E  C4 

0039 
0040 

C5DF-  C6  39 

DEC  «CNTR 

C5E1-  DO  D7 

0041 

BNE  DIVIDE 

C5E3-  20  13  C6 

0042 

JSR  SETSOB 

C5E6-  30  1E 

0043 
0044 

BMI  DVEXIT 

C5E8-  A9  01 
C5EA-  18 

LDA  #$1 

0045 

CLC 

C5EB-  65  4D 

0046 

ADC  *W0RK4 

C5ED-  85  4D 

0047 
0048 

STA  *WORK4 

C5EF-  A9  00 

LDA  #$0 

C5F1-  65  4E 

0049 

ADC  *WORK5 

C5F3-  85  4E 

0050 

STA  «¥ORK5 

C5F5-  A9  00 

0051 

LDA  #$0 

C5F7-  65  4F 

0052 

ADC  «WORK6 

C5F9-  85  4F 

0053 
0054 

STA  »WOFK6 

C5FB-  10  09 

BPL  DVEXIT 

C5FD-  A2  4F 

0055 

LDX  #WORK6 

C5FF-  AO  03 
C601-  20  86  C4 

0056 

LDY  #$3 
JSR  ROTATR 

0057 
0058 

C604-  E6  40 

INC  *FPACCE 

0059  DVEXIT 

C606-  A2  3C 

0060 

LDX  #FPLSWE 

C608-  86  37 
C60A-  A2  4C 

0061 

STX  »T0PNT 

0062 

LDX  #WORK3 

C60C-  86  35 
C60E-  A2  04 

0063 
0064 

STX  *FMPNT 

LDX  #$4 

C610-  4C  5D  C5 

0065 

0066  SETSOB 

JMP  EXMLDV 

C613-  A2  49 

0067 
0068 

LDX  #WORKO 

C615-  86  37 

STX  *TOPNT 

C617-  A2  3D 

0069 

LDX  #FPLSW 

C619-  86  35 
C61B-  A2  03 
C61D-  20  5C  C4 
C620-  A2  49 

0070 

STX  «FMPNT 

0071 

LDX  #$3 

0072 

JSR  MOVIND 

0073 
0074 

LDX  #WORK0 

C622-  86  37 

STX  »T0PNT 

C624-  A2  45 

0075 

LDX  #FOPLSW 

C626-  86  35 

0076 

STX  »FMPNT 

C628-  AO  00 

0077 
0078 

LDY  #40 

C62A-  A2  03 

LDX  #3 

C62C-  38 

0079 

0080  S0BR1 

SEC 

C62D-  B1  35 

0081 

LDA  (FMPNT), Y 
SBC  ( TOPNT ),Y 

C62F-  F1  37 

0082 

122 


;SET  CARRY 

[SUBTRACT  DIVISOR  EXP 

;S0RE  IN  FPACC  EXP 

; COMPENSATE  FOR  DIV  ALGORI 

;SET  BIT  CNTH  STORAGE 

jSOB  DIVISOR  FROM  DIVIDEND 

;SET  PNTR  TO  DIVIDEND 

; STORE  IN  TOPNT 

;SET  PNTR  TO  QOOTIENT 

; STORE  IN  FMPNT 

;SET  PREC  CNTR 

;MOV  QOOT  TO  DIVIDEND 

;SET  CARRY 


DIV  BY  0  IS  0 

NEG  RESOLT,  CLEAR  CARRY 

SET  PNTR  TO  QOOTIENT  LS  B 

SET  PREC  CNTR 

ROTATE  CARRY  IN  LSB  OF  QO 

SET  PNTR  TO  DIVID  LS  BYTE 

SET  PREC  CNTR 

ROTATE  DIVIDEND  L 

DEC  BIT  CNTR 

NOT  O.CONT 

DO   AGAIN  FOR  RNDING 

-,NO  RNDING 

ELSE  ADD  1  TO  23RD  BIT 

CLEAR  CARRY  FOR  ADD 

RND  OFF  LS  BYTE  OF  QOOT 

RESTORE  BYTE 

CLEAR  A  NOT  CARRY 

ADD  CARRY 

STOR  RESOLT 

CLEAR  A  NOT  CARRY 

ADD  CARRY  TO  MS  BYTE  OF  Q 

STORE  RESOLT 


;SET  PREC  CNTR 

; CLEAR  SIGN  BIT  CNTR 

; COMPENSATE  EXP  FOR  ROTATE 

;SET  POINTER  TO  FPACC 

; STORE   IN  TOPNT 

;SET  PNTR   TO  QOOTIENT 

;SOTRE  IN  FMPNT 

;SET  PREC   CNTR 

;MOVE  QOOTIENT  TO  FPACC 

;SET  PNTR 

;SET  PNTR   TO  FPACC 

;SET  PREC  CNTR 

;MOVE  FPACC  TO  WORK  AREA 

;PREP  FOR  SOBT 

; STORE  PNTR  TO  DIVISOR 

;SET  PNTR  TO  FPOP  LS  BYTE- 

; STORE  PNTR  TO  DIVIDEND 

; INITIALIZE  INDEX  PNTR 

;SET  PREC  CNTR 


; FETCH  FPOP 
;SOB  FPACC  BYTE 
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C631-  91  37 
C633-  C8 
C634-  CA 
C635-  DO  F6 
C637-  A5  4B 
C639-  60 


0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0055 


STA  (TOPNT).Y 

INY 

DEX 

BNE  SUBR1 

LDA  *W0RK2 

RTS 


; STORE  IN  PLACE  OF  DIVISOR 


;NOT  0  CONT  SOBT 

;SET  SIGN  BIT  RESOLT  IN  N 


;PUT  "FPDIV.S" 

.FI  D26 


"FPIOSUBS.S" 


04E1   36B9-3B9A  FPIOSUBS.S 


C63A-  A9  04 
C63C-  85  18 


C63E-  A9 
C640- 


C642- 


0 
85  *7 
A9  00 


C644-  85  46 

C646-  85  45 

C648-  20  03 

C64B-  C6  5C 
C64D-  60 

C64E-  A9  FD 
C650-  85  48 
C652-  A9  66 
C654-  85  47 
C656-  85  46 
C658-  A9  67 
C65A-  85  45 
C65C-  20  03 
C65F-  E6  5C 
C661-  60 


C662- 
C664- 
C666- 
C668- 
C66A- 
C66C- 
C66E- 
C670- 
C673- 
C675- 
C677- 
C67A- 
C67C- 
C67E- 
C681- 
C683- 
C685- 
C687- 
C689- 
C68B- 
C68E- 
C690- 
C692- 


C5 


C5 


A9  00 

85  5B 

A2  54 

86  37 
A2  58 

86  35 
A2  04 

20  5C 

C4 

A2  58 

AO  04 

20  7E 

C4 

A2  58 

AO  04 

20  7E 

C4 

A2  54 

86  35 

A2  58 

Kb 

20  A7 
A2  58 

C4 

AO  04 

4C  7E 

C4 

0001 
0002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 

0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 

0043 

0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0056 


;P0T  "FPIOSUBS.S" 

[SUBROUTINES  USED  BY  THE  FPIN  AND  FPOUT  ROUTINES 

FPX10 


FPD10 


DECBIN 


LDA  #$04 
STA  «F0PEXP 
LDA  #450 
STA  »F0PMSW 
LDA  #$00 
STA  »FOPNSW 
STA  »FOPLSW 
JSR  FPMULT 
DEC  »IOEXPD 
RTS 

LDA  #4FD 
STA  »FOPEXP 
LDA  #$66 
STA  «FOPMSW 
STA  »FOPNSW 
LDA  #$67 
STA  «FOPLSW 
JSR  FPMULT 
INC  *IOEXPD 
RTS 

LDA  #$00 
STA  »I0STR3 
LDX  #I0LSW 
STX  »T0PNT 
LDX  #IOSTR 
STX  *FMPNT 
LDX  #$04 
JSR  MOVIND 
LDX  #IOSTR 
LDY  #$04 
JSR  ROTATL 
LDX  #IOSTR 
LDY  #$04 
JSR  ROTATL 
LDX  #I0LSW 
STX  "FMPNT 
LDX  #I0STR 
STX  «TOPNT 
LDX  #$04 
JSR  ADDER 
LDX  #IOSTR 
LDY  #$04 
JMP  ROTATL 


;PUT  "FPIOSUBS.S" 

.FI  D26    "FPBUFOUT.S" 


;LOAD  FPOP  WITH  TEN 

;BY  SETTING  EXP  TO  4 

;AND  THE  MANTISSA  TO   $50,$ 


;MULT  FPACC  BY  FPOP 

;DECR  DEC  EXP 

; RETURN  TO  TEST  FOR  COMPLE 

; PLACE  .1  IN  FPOP  BY 
; SETTING  FPOP  EXP  TO  -3 
;AND  LOADING  NANTISSA  WITH 


;MULT  FPACC  BY  FPOP 


0CB1   36B9-436A  FPBUFOUT.S 


CLEAR  MS  BYTE+1  OF  RESULT 
SET  PNTR  TO  I/O  STOR 

SET  PNTR  TO  I/O  STOR 

SET  PREC  CNTR 

MOVE  I/O  STOR  TO  WORK  ARE 

SET  PNTR  TO  ORIG  VAL 

SET  PREC  CNTR 

START  «10  ROUT 

RESET  PNTR 

SET  PREC  CNTR 

MULT  BY  2  AGAIN 

SET  PNTR  TO  I/O  WORK  AREA 

STORE  IN  FMPNT 

SET  PNTR  TO  I/O  STOR 

STORE  IN  TOPNT 

SET  PREC  CNTR 

ADD  ORIGINAL  TO  ROTATED 

RESET  PNTR 

SET  PREC  CNTR 


0001  ;PUT  "FPBUFOUT.S" 

0002  [FLOATING  POINT  OUTPUT  ROUTINE 

0003  ; CONVERTS  THE  FLOATING  POINT  BINARY 

0004  [NUMBER  IN  FPACC  TO  ITS  DECIMAL 

0005  [EQUIVALENT  AND  OUTPUTS  IT  TO  THE 
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C695- 
C697- 
C699- 
C69B- 
C69D- 
C69F- 
C6A1- 
C6A3- 
C6A6- 
C6A8- 
C6AA- 
C6AC- 


A9  62 
85  37 
A9  00 
85  38 
85  36 
85  5C 
A2  16 
20  52  c4 
A5  3F 
30  04 
A9  2B 
DO  09 


C6AE-  A2  3D 
C6B0-  AO  03 
C6B2-  20  99  C4 
C6B5-  A9  2D 

C6B7-  20  65  C7 
C6BA-  A9  30 
C6BC-  20  65  C7 
C6BF-  A9  2E 
C6C1-  20  65  C7 
C6C4-  C6  40 


C6C6- 
C6C8- 
C6CA- 
C6CB- 
C6CD- 
C6CF- 

C6D2- 
C6D4- 

C6D7- 
C6DA- 

C6DD- 
C6DF- 
C6E1- 
C6E3- 
C6E5- 
C6E7- 
C6EA- 
C6EC- 
C6EE- 
C6F0- 
C6F2- 
C6F5- 

C6F8- 
C6FA- 
C6FC- 
C6FE- 
C700- 
C703- 


10  OF 
AQ  04 

65  40 
10  OE 
20  3A  C6 

A5  40 
4C  C6  C6 

20  4E  C6 
4C  D2  C6 

A2  58 


37 
3D 

I 

5C  C4 


A9 

00 

85 

5B 

A2 

58 

AO 

03 

20 

B 

C4 

20 

C6 

E6 

40 

FO 

OA 

A2 

5B 

AO 

04 

20 

86 

C4 

4C 

F8 

C6 

A9  07 


C706' 
C708- 
C70A. 
C70C-  FO  11 


85 

A5 


C70E- 
C710- 
C712-  20  65  C7 


A5  5B 
09  30 


0006 
0007 
0008 
0009 
0010 
0011 
0012 

0013 

0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 

0023 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 

0074 
0075 
0076 
0077 


[DISPLAY  DEVICE   AS   ASCII  CHARACTERS 
;IN  THE  FOLLOWING  FORMAT 
;    0.1234567  E+07 

FPOUT 


OUTNEG 
AHEAD 1 

DECEXT 

DECREP 
DECEXD 
DECOOT 


COMPEN 

OUTDIG 

OUTDGS 
DECRDG 


LDA  #OUTBUF 

STA  *T0PNT 

LDA  #400 

STA  *T0PNT+1 

STA  *FMPNT+1 

STA  »IOEXPD 

LDX  #$16 

JSR  CLRMEM 

LDA  *FPMSW 

BMI  OOTNEG 

LDA  #'  + 

BNE  AHEAD 1 

LDX  #FPLSW 

LDY  #*3 

JSR  COMPLM 

LDA  #'- 

JSR  BDFECHO 
LDA  #'0 
JSR  BUFECHO 
LDA  #'. 
JSR  BUFECHO 
DEC  «FPACCE 

BPL  DECEXD 

LDA  #$4 

CLC 

ADC  "FPACCE 

BPL  DECOOT 

JSR  FPX10 

LDA  "FPACCE 
JMP  DECEXT 

JSR  FPD10 
JMP  DECREP 

LDX  #IOSTR 
STX  *T0PNT 
LDX  #FPLSW 
STX  »FMPNT 
LDX  #*3 
JSR  MOVIND 
LDA  tiO 
STA  *I0STR3 
LDX  #I0STR 
LDY  #$3 
JSR  ROTATL 
JSR  DECBIN 

INC  «FPACCE 
BEQ  OUTDIG 
LDX  #I0STR3 
LDY  #*4 
JSR  ROTATR 
JMP  COMPEN 

LDA  #$7 
STA  *CNTR 
LDA   «I0STR3 
BEQ   ZERODG 

LDA  *I0STR3 
ORA  #'0 
JSR  BUFECHO 


; CLEAR  OUTPUT  BUFFER 


; CLEAR  DEC  EXP  STOR 


;IS  NEG 

; YES .MAKE  POS  AND  OUT  "-" 
;ELSE,  SET  ASCII  FOR  "+" 
; DISPLAY  + 

;SET  PNTR  TO  LS  BYTE  OF  FP 
;SET  PREC  CNTH 
;MAKE  FPACC  POS 
;SET  ASCII  FOR  »-" 

jOUT  SIGN  OF  RESULT 

;SET  UP  ASCII  0 

;0UT  0 

;SET  UP  ASCII   "." 

;0UT  . 


IF  COMPENSATED,EXP>=0 
EXP  NEG, ADD   4  TO  FPACC 

ADD  4  TO  FPACC  EXP 

IF  EXP>=0,OUT  MANTISSA 

ELSE,    MULT  MANTISSA  BY   10 

GET  EXP 

REPEAT  TEST  FOR  >=0 

MULT  FPACC  BY  .1 

CHK  STATUS  OF  FPACC  EXP 

SET  UP  FOR  MOVE  OPER 
SET  TOPNT  TO  WORK  REG 
SET  PNTR  TO  FPACC  LS  BYTE 

SET  PREC  CNTR 
MOVE  FPACC  TO  OUT  REGS 

CLEAR  OUT  REG  MS  BYTE+1 
SET  PNTR  TO  OUT  LS  BYTE 
SET  PREC  CNTR 
ROT  TO  COMP  FOR  SIGN  BIT 
OUT  REG  X 10, OVERFLOW 

INCR  FPACC  EXP 

OUT  DIGIT 

ELSE, ROTATE  R  TO  COMP 

FOR  ANY  REMAINDER  IN  BIN 

HOT  R 

REPEAT  LOOP  UNTIL   EXP=0 

SET  DIGIT  CNTR 

FETCH  BCD, SEE  IF  1ST  DIG 
YES,  CHECK  REM  OF  DIGITS 

GET  BCD  FROM  OUT  REG 
FORM  ASCII  CODE 
OUT  DIGIT 
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C715- 
C717- 
C719- 
C71C- 

C71F- 
C721- 
C723- 
C725- 
C727- 
C729- 
C72B- 
C72D- 
C72F- 
C731- 

C733- 
C735- 
C738- 
C73A- 
C73C- 
C73E- 


C6  39 
FO  1A 
20  62  C6 
4C  OE  C7 

C6  5C 
A5  5A 
DO  FO 
A5  59 
DO  EC 
A5  58 
DO  E8 
A9  00 
85  5C 
FO  E2 

A9  15 
20  65  C7 
A5  5C 
30  05 
A9  2B 
4C  49  C7 


C741-  49  FF 
C743-  85  5C 
C745-  E6  5C 
C747-  A9  2D 

C749-  20  65  C7 
C74C-  AO  00 
C74E-  A5  5C 


C750- 
C751- 
C753- 
C755- 
C75T 


38 

E9  OA 
30  06 
85  5C 
C8 


C758-  4C  50  C7 

C75B-  98 
C75C-  09  30 
C75E-  20  65  C7 
C761-  A5  5C 
C763-  09  30 


C765-  E6  62 
C767-  A6  62 
C769-  95  62 
C76B-  60 


0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0057 


ZEFODG 


EXPOUT 


EXOUTN 


AHEAD2 


SUB  12 


TOMUCH 


DEC  »CNTR 
BEQ  EXPOUT 
JSR  DECBIN 
JMP  OUTDGS 

DEC  OIOEXPD 
LDA  »I0STR2 
BNE  DECRDG 
LDA  »I0STR1 
BNE  DECRDG 
LDA  »IOSTR 
BNE  DECRDG 
LDA  #J0 
STA  »IOEXPD 
BEQ  DECRDG 

LDA  #'E 
JSR  BUFECHO 
LDA  »IOEXPD 
BMI  EXOUTN 
LDA  *•  + 
JMP  AHEAD2 

EOR  tf$FF 
STA  «I0EXPD 
INC  »IOEXPD 
LDA  #'- 

JSR  BOFECHO 
LDY  #$0 
LDA  'IOEXPD 

SEC 

SBC  *$0A 

BMI  TOMUCH 

STA  *IOEXPD 

INY 

JMP  SUB 12 

TYA 

ORA  #*0 
JSR  BUFECHO 
LDA  »I0EXPD 
ORA  #'0 


;OUTBUF[0] 
:0UTBUF[1J 
BUFECHO 


;DEC  DIGIT  CNTR 
;=0.DONE  OUT  EXP 
; ELSE, GET  NEXT  DIGIT 
;FORM  ASCII  AND  OUT 

;DEC  EXP  FOR  SKIPPING  DISP 
; CHECK  IF  MANTISSA  =0 
;IF  NOT  O.CONT  OUT 


; MANTISSA  0, CLEAR  EXP 

; BEFORE  FINISHING  DISPLAY 

;SET  ASCII  FOR  E 

; DISPLAY  E 

;TEST  IF  NEG 

;YES,  DISPLAY  -  AND  NEGATE 

;N0,  SET  ASCII  FOR  + 

; DISPLAY  EXP  VAL 

[TWO'S  COMP  EXP 
:T0  MAKE  NEG  POS 
;FOH  OUT  OF  EXP  VALUE 
;SET  ASCII  FOR  - 

;OUT  SIGN  OF  EXP 

; FETCH  EXP 


;SUB  TEN'S  FROM  EXP 
;IF  MINUSjREADY  FOR   OUT 
; RESTORE  POS  RESULT 
;INC  TEN'S  CNTR 
;CONT  SUB 

;PUT  MS  DIGIT   INTO  A 
;FORM  ASCII 

;OUT  TEN'S  DIG  TO  DISPLAY 
; FETCH   UNIT'S  DIGIT 
[FORM  ASCII 


IS   A   POINTER  TO  THE  LAST   CHAR   IN  OUTBUF 
TO  OUTBUF[15]    CONTAINS  THE   CHARS. 


INC  »OUTBUF 

LDX  »OUTBUF 

STA  »OUTBUF,X 
RTS 

;PUT  "FPBUFOUT.S" 

.FI  "R2DATA.D" 


; POINT  TO  NEXT  FREE  SPOT 
j STORE  CHAR 


0270  36B9-3929  R2DATA.D 


C76C-  78  77  7C 
C76F-  38  79  53 


C772-  45  4E  44 
C775-  00 
C776-  45  4F  54 
C779-  00 


C77A-  FF  FF  FF 


0001  ;PUT  "R2DATA.D" 

0002 

0003  MESSAGE 

0004 


BY  $78  *77  *7C  $38  $79  $53  ; TABLE? 


0005 

0006  MESGS 

0007 

0008 

0009 

0010  CONFIGTAB 

0011 


.BY 
.BY 


END' 
EOT' 


$00 
$00 


.BY  $FF  $FF  $FF  $FF  $FF  $FF  $FF  $FF 
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C77D- 
C780- 

FF  FF  FF 

FF  FF 

C782- 

00  00  11 

0012 

.BY  tOO  ft  Hi                    :,;■•■  . 

C785- 

00  00  01 

C788- 
C78A- 

FF  FF 

06  05  00 

0013 

.BY  $06  $''H  'nn  *(;i: 

C78D- 

00  80  01 

C790- 

FF  FF 

C792- 

06  10  00 

0014 

.BY  $06 

$10  $00  $00  $80  $01  $FF  $FF  ;APPLE 

C795- 

00  80  01 

C79B- 

FF  FF 

C79A- 
C79D- 
C7A0- 

06  38  00 
00  80  01 

0015 

.BY  $06 

$38  $00  $00  $80  $01  $FF  $FF  ; APPLE 

FF  FF 

C7A2- 

10  10  00 

0016 

.BY  $10  $-.         :■'■!: 

C7A5- 

00  80  01 

C7A8- 

FF  FF 

C7AA- 

FF  FF  FF 

0017 

.BY  $FF  $1    ■■■■■  .  i!' 

C7AD- 

FF  FF  FF 

C7B0- 

FF  FF 

C7B2- 

FF  FF  FF 

0018 

.BY  $FF  $]  ! 

C7B5- 
C7B8- 

FF  FF  FF 

FF  FF 

C7BA- 

FF  FF  FF 

0019 

.BY  $FF 

$FF  $FF  $FF  $FF  $FF  $FF  $FF 

C7BD- 

FF  FF  FF 

C7C0- 

FF  FF 

C7C2- 

FF  FF  FF 

0020 

.BY  $FF 

$FF  $FF  $FF  $FF  $FF  $FF  $FF 

C7C5- 

FF  FF  FF 

C7C8- 

FF  FF 

C7CA- 

FF  FF  FF 

0021 

.BY  $FF  #■:■' 

C7CD- 

FF  FF  FF 

C7D0- 

FF  FF 

0022 

TABLENGTH 

.BE  =-C0NF  ;;■ 

0023 

0024 

;PUT  "R2DATA  : 

0058 

.EN 

END  OF  MAE  PASS! 



LABEL  FILE:   -- 

- 

gACCSET  =C4F8 

9ACNONZ  =C4DD 

SACZERT  =C4D0 

0MINUS1  =C4EF 

gNORMEX  =C4DC 

§RA  =C151 

§RB  =  C182 

SRC  =C41E 

gRD  =C286 

gRE  =C3B6 

SRI  =C073 

§SYNC2  =C251 

ACCESS  =8B86 

ADCHAN 

=  0024 

ADDER  =C4A7 
AHEAD2  =C749 

ADOPP 

=C51A 
=C489 

AHEAD  1 

=C6B7 

ARSHR 

ASCNIB 

=8275 

AVGFACT  =C2F6 

BA  =C000 

BAUD  =0032 

BCD  =001 A 

BINARY  =0016 

BLANK  : 

:C1F4 

BLKMOV  =8740 

BUFECHO  =C765 

CALCLENGTH  =C122 

!        CHARDEL  =002D 

CKRND 

=C545 

CKSIGN 

=C56F 

CLRMEM  =C452 

CNTR  : 

:0039 

CNTR1  : 

=0027 

CNTR2  =0026 

COL  =0022 

COMPEN 

=C6F8 

C0MPL1  =C496 

COMPLM  =C499 

CONFIG 

=89A5 

CONFIGTAB  =C77A 

CONVERT  =C271 

COUNT  : 

=002A 

CROUND  =C549 

CURRENT  =0004 

DATA  =0000 

DATASTART  =0002 

DECBB 

1  =C662 

DECEXD 

=C6D7 

DECEXT  =C6C6 

DECMEM  =C470 

DECOUT 

=C6DD 

DECRDG  =C715 

DECREP  =C6D2 

DELAY  = 

:C226 

DERROR  =C5CF 

DGCHA^ 

1  =0025 

DISBUF 

=A640 

DIVIDE  =C5BA 

DIVTMP  =0012 

DL00P1 

=002B 

DL00P2  =002C 

DVEXIT  =C606 

EMPTY  = 

■C114 

END  =0002 

EOF  =C1CF 

EOR  =C209 

ERROR  =0011 

EXMLDli 

'  =C55D 

EXOUTN 

=C741 

EXPOUT  =C733 

FILL3 
FMPNT 

=8718 

FIND  =C0E4 

FINDFIRST  =C145 

'"=0045 

FOLSWE 

=0044 

FOPEXP  =0048 

FOPLSV 

FOPMSW 

=0047 

FOPNSW  =0046 

FOUND 

=C0FC 

FPACCE 

=0040 

FPD10  =C64E 

FPDIV 

=C5A6 

FPLSW  = 

:003D 

FPLSWE  =003C 

FPMSW 

=003F 

FPMULT 

=C503 

FPNORM  =C4C3 

FPNSW 

=003E 

FPOUT  = 

:C695 

FPRINT  =C3C9 
GETB  =C1B8 

FPX10 

=C63A 

GETABLE 

I  =C02B 
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GOVEC  =A659 
INCHR  =8A1B 
INIT  =C024 
INPRDI  =0053 
IOEXPD  =005C 
IONSW  =0055 
I0STR2  =005A 
L2  =84D3 
LINEDEL  =002E 
LSTDAY  =000A 
MAINENTRY  =0033 
MAXDG  =0046 
MCANDO  =0041 
MESGS  =C772 
MOVIND  =C45C 
NACCESS  =8B9C 
NBINARY  =001F 
NEWLINE  =C209 
NIBASC  =C2E9 
OPSGNT  =C598 
OUTBOF  =0062 
OUTCHR  =8A47 
OUTDGS  =C70E 
OUTDTB  =C38A 
OUTHEX  =C2D8 
OOTLAB  =C325 
OUTNDM  =C2B9 
OOTXAH  =82F4 
PARN  =A64A 
PLCHAN  =0026 
QnOROT  =C5D1 
RMDIG  =A645 
ROTL  =C47F 
SAVER  =8188 
SETDAT  =C107 
SIGNS  =003B 
START  =0006 
SUBEXP  =C5AD 
SYNCFLAG  =0031 
TECHO  =A653 
TOMDCH  =C75B 
TPLSW  =005D 
TSIGN  =003A 
VECSW  =8BB7 
VIA3  =AC00 
WORKO  =0049 
W0RK3  =004C 
WORKS  =004F 
ZERODG  =C71F 
//0000,C7D2,17D2 


ID  =A64E 
INCMEM  =C467 
INITZP  =C040 
INTVEC  =A678 
IOLSW  =0054 
IOSTR  =0058 
I0STR3  =005B 
LABEL  =0010 
LINEFEED  =0030 
MAIN  =C084 
MAINLOOP  =C093 
MAXDUMP  =002F 
MCAND1  =0042 
MESSAGE  =C76C 
MULTEX  =C56E 
NADOPP  =C527 
NEGFPA  =C58F 
NEXT  =C04C 
NODAT  =00EE 
OUTAD  =C395 
OUTBYT  =82FA 
OUTDATE  =C366 
OUTDIG  =C706 
O0TDUMP  =C43D 
0UTHEX2  =C2E5 
OUTNEG  =C6AE 
OOTPL  =C40C 
PAGES  =000E 
PARNR  =A649 
PREXFR  =C553 
RESALL  =81C4 
ROTATL  =C47E 
RTS  =C239 
SCAND  =8906 
SETDCT  =C5B6 
SPACE  =8342 
SHB12  =C750 
SDBR1  =C62D 
TABLENGTH  =0058 
TEMPI  =0061 
TOPNT  =0037 
TPMSW  =005F 
TSTAT  =8B3C 
VIA1  =A0OO 
WAIT  =C23A 
W0RK1  =004A 
W0RK4  =004D 
W0RK7  =0050 


INBYTE  =81D9 
INEXPS  =0052 
INMTAS  =0051 
IOEXP  =0057 
IOMSW  =0056 
IOSTR 1  =0059 
KSCONF  =89A3 
LENGTH  =0008 
LOAD  =C0CE 
MAINDOMP  =C0B1 
MAXAD  =0041 
MAXPL  =0041 
MCAND2  =0043 
MONITOR  =8003 
MULTIP  =C511 
NBCD  =0020 
NEGOP  =C59D 
NEXTSECORD  =C19C 
NOGO  =C5D0 
OUTBIN  =C26B 
OHTCHAR  =C1FF 
OUTDG  =C3E9 
ODTDODBLE  =C263 
OUTHEAD  =C346 
OUTHEXZ  =C2D0 
OOTNIB  =8A44 
OUTQUAD  =C267 
PARM  =8220 
PEOT  =C0C0 
PROMPT  =002F 
RESTART  =8000 
ROTATR  =C486 
SAVE2  =87EA 
SDBYT  =A651 
SETSHB  =C613 
STACK  =0029 
SUBBER  =C4B5 
SYNC  =C246 
TAPDEL  =A630 
TESTREC  =C167 
TPEXP  =0060 
TPNSW  =005E 
USRENTRY  =C00O 
VIA2  =A800 
WMESG  =C1E7 
W0RK2  =004B 
W0RK5  =004E 
ZERO  =0021 
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80  DIM  X$(300) 

90  D$  =  CHR$  (4) 

100  PRINT  :  PRINT  "READY" :CNT  =  0 

110   PRINT  D$;"IN#1":  PRINT  D$;"PR#1":  REM   RS232  INPUT 

120  INPDT  A*:  PRINT  "  ":  REM  STNC 

130  PRINT  D$;"PR#0" 

140   INPDT  X$(CNT) 

150   IF  X$(CNT)  =  "END"  THEN  300 

160  CNT  =  CNT  +  1 

170  GOTO  140 

300  PRINT  D$;"IN#0" 

310  FOR  I  =  0  TO  CNT 

320   PRINT  X*(I) 

330  NEXT  I 

340   GOTO  100 

350   END 
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APPENDIX  E.   Component  Data  Sheets 
SDM856  Data  Acquisition  System 
3606  Programmable  Gain  Amplifier 
MPC8S  Multiplexor 
HSM5832  Clock 
HTAA-16W  Power  Supply 


BURR -BROWN 


SDM856 
SDM857 


HYBRID  DATA  ACQUISITION  SYSTEM 


FEATURES 

•MINIATURE  SIZE 

•  LOW  COST 

•  12-BIT.  ±0.012%  LINEARITY  ERROR 

•  INSTRUMENT  AMP  OPTION 

•  LOW  LEVEL  INPUTS  (SDM857) 

•  SELECTABLE  16  SINGLE.  8  DIFFERENTIAL  INPUTS 

•  THREE-STATE  OUTPUT  BUFFERS 

•  THROUGHPUT  RATES  (S0M8S7  Overlap  Mode) 

8-Bit  Accuracy:  70kHz 
10-Bit  Accuracy:  32kHz 
12-Bit  Accuracy:  29kHz 


DESCRIPTION 

The  SDM856  and  SDM857  are  complete  data 
acquisition  systems  contained  in  a  miniature  2.2"  x 
1 .7"  x  0.22*  ceramic  package.  These  systems  offer  all 
the  functions  available  in  large  modular  data 
acquisition  systems  and  are  available  with  an 
optional  internal  instrumentation  amplifier 
(SDM857).  Inputs  as  low  as  ±10mV  can  be  accepted 
by  the  SDM857;  thermocouples,  strain  gages,  and 
other  low  level  signal  sensors  don't  require  external 
signal  conditioning.  Both  models  are  fully 
expandable  from  the  basic  16  channel  single-ended 
or  8  channel  differential  input  capability.  Digital 
resolution  is  12  bits  with  accuracy  of  ±0.024%  at  a 
throughput  rate  of  29kHz  (SDM856KG). 
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INSTRUMENTATION  AMPLIFIER  (SDM857  only) 
Offering  low  drift  and  high  accuracy,  the  internal 
instrumentation  amplifier  may  be  programmed  by  a 
single  external  resistor  for  gains  from  2  to  500.  With  gain 
programming  pins  open,  the  gain  is  2. 

SAMPLE/  HOLD 

A  complete  stand-alone  circuit,  the  sample/  hold 
amplifier  features  buffered  output,  IOmscc  acquisition 
time,  and  lOOnsec  aperture  time. 
Input,  output,  and  mode  control  lines  are  brought  out  to 
separate  pins.  This  allows  maximum  system  flexibility 
for  performing  functions,  such  as  automatic  gain 
ranging,  with  no  loss  of  aperture  time. 

ANALOG-TO-DIGITAL  CONVERTER 

The  ADC  is  a  12-bit,  25/isec  converter  with  0.01% 
linearity  error.  Its  features  include  positive  and  negative 
reference  voltage  outputs,  external  gain  and  offset 
adjustments,  straight  binary  or  two's  complement 
output,  serial  data  and  clock  outputs,  status  output,  a 
short  cycle  feature,  and  a  clock  rate  control  for  higher 
throughput  rates  at  lower  resolution  or  accuracy. 


SYSTEM  DESCRIPTION 

SDM857  contains  all  components  necessary  to  multiplex 
and  convert  analog  signals  as  low  as  ±10mV  and  as  high 
as  ±5V  into  equivalent  digital  outputs.  Throughput 
sampling  rates  are  from  29kHz  (12-bit  resolution)  to 
70kHz  (8-bit  resolution)  in  the  overlap  mode  of 
operation.  A  complete  low  drift  instrumentation 
amplifier  allows  selection  of  gains  from  2  to  500  with  one 
external  resistor.  SDM856  is  identical  to  SDM857,  but 
does  not  include  the  instrumentation  amplifier.  This 
provides  the  option  of  adding  an  external  instrumenta- 
tion amplifier  for  specific  requirements  such  as  high 
speed,  digital  programming,  etc.  Both  models  can  be 
configured  to  accept  either  8-channcl  differential  or  16- 
channel  single-ended  signals  and  can  be  expanded  almost 
without  limit  with  external  multiplexers.  Three-state 
outputs  are  provided  for  easy  interface  to  microprocessor 
and  other  bus-structured  systems.  Figure  I  illustrates  all 
system  components  which  are  described  in  the  following 
paragraphs. 

ANALOG  MULTIPLEXER 

The  analog  multiplexer  consists  of  two  CMOS  integrated 
circuits.  Pin  interconnects  are  used  to  select  I6-channei 
single-ended  or  8-channel  differential  operation.  In 
single-ended  operation  the  multiplexer  can  be  used  in  a 
pseudo-differential  mode  by  connecting  the  amplifier 
inverting  input  to  common  remote  signal  ground. 
Channel  selection  is  made  by  an  internally  latched  3-  or  4- 
bit  binary  word,  for  differential  or  single-ended 
operation  respectively. 


THREE-STATE  OUTPUT  BUFFERS 

Digital  outputs  of  the  ADC  are  internally  buffered  by 
LSTTL  three-state  buffers.  Three  separate  enable  lines 
are  brought  out  for  easy  interfacing  to  4-,  8-  or  1 6-bit  data 
buses.  MSB  and  BUSY  are  also  buffered  by  separate 
three-state  devices,  each  with  its  own  enable  line. 


ADDRESS  LATCH 

Outputs  of  the  4-bit  TTL  register  latch  are  connected  to 
the  address  inputs  of  the  multiplexer.  This  latch  serves  as 
an  address  storage  register  for  the  selected  analog  input. 
It  may  be  loaded  through  4  address  inputs.  Other  inputs 
are  LOAD  and  CLEAR.  The  3  least  significant  bits  are 
used  for  8-channel  differential  mode  addressing. 


DELAY  TIMER 

A  delay  timer  allows  settling  time  for  the  multiplexer, 
amplifier,  and  sample/  hold  circuits  before  conversion 
begins.  The  delay  is  adjustable  over  a  wide  range  by  use  of 
an  external  resistor  or  capacitor.  This  allows  for  longer 
settling  time  of  the  instrumentation  amplifier  when 
operating  at  high  gains,  or  shorter  settling  time  for  lower 
resolution  operation. 

CHANNEL  EXPANSION 

The  number  of  analog  input  channels  of  the  SDM856 
and  SDM857  can  be  easily  increased  by  using  Burr- 
Brown's  MPC8D  (8-channel  differential)  and  MPC16S 
(16-channel  single-ended)  multiplexers.  These  are  latch- 
free  devices  which  contain  internal  binary  decoding  at 
TTL  or  MOS  levels  and  may  be  integrated  into  a  system 
with  minimal  external  logic. 
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FIGURE  1.  SDM856/857  Block  Diagram. 


SYSTEM  PERFORMANCE 

SDM856  and  SDM857  are  configured  for  random 
channel  selection.  With  the  addition  of  an  external 
counter  they  can  be  configured  to  continuously  sequence 
through  all  analog  channels  or  sequence  through  all 
analog  channels  on  command  from  an  external  trigger. 

With  the  appropriate  4-bit  (single-ended)  or  3-bit 
(differential)  channel  address  on  the  latch  inputs,  and 
DELAY  OUT  (pin  45)  tied  to  the  LOAD  input  (pin  23),  a 
negative  going  edge  is  applied  to  the  STROBE  input  (pin 
48).  This  starts  the  delay  timer,  latches  the  multiplexer 
address,  and  allows  the  input  signal  to  pass  through  the 
multiplexer,  instrumentation  amplifier  and  sample/  hold 
and  settle  to  its  final  value  before  starting  the  A/D 
conversion.  The  DELAY  OUT  signal  (pin  45)  is  also 
connected  to  the  TRIG  input  (pin  46)  and  the  A/D 
conversion  is  initiated  on  the  negative-going  edge.  The 
S/H  CONTROL  input  (pin  66)  is  connected  to  BUSY 
(pin  24)  so  that  the  sample/ hold  is  in  the  HOLD  mode 
during  the  A/D  conversion. 

By  using  overlap  programming  the  settling  time  effects  of 
the  analog  multiplexer  and  instrumentation  amplifier 
can  be  reduced,  extending  throughput  sampling  rates  up 
to  29kHz  for  12-bit  and  70kHz  for  8-bit  resolution  (ADC 
short-cycled).  This  mode  of  operation  is  most  useful 
when  converting  low  level  inputs  to  accommodate  the 
increased  settling  time  of  the  instrumentation  amplifier. 
Overlap  programming  is  accomplished  by  connecting 
BUSY  to  STROBE  and  S/H  CONTROL;  DELAY  OUT 
to  LOAD  and  TRIG.  In  this  mode  of  operation  the 
address  of  the  next  channel  to  be  converted  is  latched  and 
the  output  of  the  instrumentation  amplifier  allowed  to 
settle  to  a  new  value  during  the  present  conversion. 


DIGITAL  INPUT  SPECIFICATIONS 

Address  Inputs        One  standard  LSTTL  load,  positive  true 

(A0  -  AJ) 

Address  Coding      4-bit  binary 

LOAD  One  standard  LSTTL  load,  positive  true,  address  loaded  on 

positive  edge. 
CLEAR  One  standard  LSTTL  load,  negative  true,  low  level  clears 

address  latch. 
STROBE  One  standard  LSTTL  load,  high-to-low  transition  triggers 

the  delay  timer. 
TRIG  One  standard  LSTTL  load,  a  negative  going  edge  initiates  the 

A;  D  conversion. 
SHORT  CYCLE     One  standard  LSTTL  load,  lope  1  for  12-bit  resolution. 
ENABLE  I  Connect  to  "8-bit"  or  -|0-bit"  for  8-  or  10-bit  resolution. 

ENABLE  2. 
ENABLE  5 

577  enable 


One  standard  LSTTL  load,  a  low  level  enables  the 
3-state  output. 
BUSY  ENABLE 
S/H  CONTROL     TTL  compatible.  IOjiA  maximum  input  current. 

Logic  0  =  Hold  mode.  Logic  I  ■  Sample  (track!  mode. 
MUX  ENABLE  2   TTL  compatible.  2*iA  input  current.  Logic  0  enables 
multiplexer  2  (channels  8-IS). 

DIGITAL  OUTPUT  SPECIFICATIONS 


Parallel  Data 
Outputs 
Serial  Output 


BUSY 
BUSY 
CLOCK  OUT 

Address  Output 
(AO  -  A3) 


5  standard  TTL  loads,  posmv 


.  3-state. 


2  standard  TTL  loads,  positive  true.  NRZ.  time  serial  data 

output  beginning  with  Dll  (see  Timing  Diagram). 

5  standard  TTL  loads,  positive  true.  3-state. 

5  standard  TTL  loads,  low  during  A/D  conversion. 

5  standard  TTL  loads,  high  during  A<D  conversion.  3-state 

5  standard  TTL  loads,  for  synchronizing  serial  out  data 

(see  Timing  Diagram). 

5  standard  TTL  loads,  positive  true 

5  standard  TTL  loads,  high  during  delay  period,  triggered 
by  Strobe  input. 

5  standard  TTL  loads,  high  while  addressing  channels  0-7. 
low  while  addressing  channels  8-IS. 


gppriFir.ATinNS 

ELECTRICAL 

Typical  at  T*  =  +25"C  and  rated  power  supplies  unless  otherwise  noted. 


MODEL                                                                SDM856/SDM857 

TRANSFER  CHARACTERISTICS 

M1N  1    TYP   1  MAX 

UNITS 

Resolution 

12     | 

Bits 

Number  of  Analog  Channels 

16SIN/8DIF 

Throughput  Rate  (Normal  mode) 

SDM856JG 

33 

35 

kHz 

SDM856KG 

25 

27 

kHz 

SDM857JO 

22 

24 

kHz 

SDM857KG 

18 

20 

kHz 

Throughput  Rate  (Overlap  mode) 

SDM856JG 

38 

40 

kHz 

SOM856KC 

27 

29 

kHz 

SDM857JG 

38 

40 

kHz 

SDM857KG 

27 

29 

kHz 

ANALOG  INPUTS 

ADC  Input  Voltage  Ranges 

0  to  +10,  ±5.  ±10 

V 

Mux  Input  Voltage  Range 

1 

Absolute  max  without  damage 

±20 

For  linear  operation 

1 

±6 

Mux  Input  Impedance,  OFF  Channel 

Si  10*11 10 

nnpF 

Mux  Input  Impedance.  ON  Channel 

1800(17 

niipF 

Amplifier  Characteristics 

(SDM857  only) 

Input  Impedance 

5  x  I0'l|3 

niipF 

Gain  Range 

2      |             |     500 

Gain  Equation 

G  =  2  +  (20kll/R,xi'") 

Input  Bias  Current  at  +25°C 

+50 

nA 

OX  to  +70"C 

+1.1 

nAfC 

Offset  Current  at  +25T 

±20 

nA 

0T  to  +70°C 

+0.6 

nA/'C 

Input  Offset  Voltage 

±0.1 

mV 

Input  Offset  Voltage  Drift  (G  >  100) 

±4 

±6 

*V/'C 

Output  Noise  (10Hz-  10kHz) 

G  ■  100.  Ri  =  500fl 

400 

*,V,  rms 

Common-mode  Rejcction(DO 

G-2 

90 

dB 

G  ■  1000 

97 

dB 

Sample/Hold  DC  Characteristics 

Input  Impedance 

I0"||3 

(lllpF 

Bias  Current 

so 

nA 

Output  Offset  Voltage 

7 

mV 

REFERENCE  VOLTAGES 

Positive  Output 

+2.490 

+2.500 

+2.510 

V 

Positive  Output  Drift 

±5 

+10 

ppm/°C 

Negative  Output 

-6.0 

-6.4 

-6.8 

V 

Negative  Output  Drift 

±5 

±10 

Ppm/'C 

ACCURACY 

Throughput  Accuracy 

121 

0  to  +5V,  ±5V  ranges  JG 

±0.048 

%  of  FSR 

0  to  +5V.  ±5V  ranges  KG 

±0.024 

%  of  FSR 

0  to  +20mV,  ±IOmV  JG 

(SDM857  only) 

±0.11 

%  of  FSR 

0  to  +20mV,  ±10mV  KG 

(SDM857  only) 

±0.08 

%  of  FSR 

Linearity  (G  =  1) 

JG 

±0.024 

9oof  FSR 

KG 

±0.012 

%  of  FSR 

Differential  Linearity  (G  =  1) 

JG 

±0.024 

±0.048 

%  of  FSR 

KG 

±0.012 

+0.024 

%  of  FSR 

Quantizing  Error 

±0.012 

%  of  FSR 

System  Gain  Error'31 

±0.1       ±0.3 

% 

System  Offset  Error1" 

±0.1 

±0.3 

%  of  FSR 

Power  Supply  Sensitivity  +I5V 

±0.0007 

%/%AV 

Power  Supply  Sensitivity  -15V 

±0.0007 

%I%AV 

Power  Supply  Sensitivity  +5V 

±0.001 

%/%AV 

TEMPERATURE  STABILITY 

MIN 

TYP 

MAX 

UNITS 

System  Accuracy  Drift'41  Unipolar 

±25 

ppm/°C 

System  Accuracy  Drift'*'  Bipolar 

+20 

PpmfC 

Linearity  Drift 

+2 

ppm  of 
FSR/"C 

DYNAMIC  ACCURACY 

Sample/Hold  Characteristics 

Aperture  Time 

100 

nsec 

Acquisition  time 

10 

usee 

FeedthroughflOV  step) 

+1.4 

mV 

Amplifier  CMRR  at  60Hz  G  •  2 

90 

dB 

Amplifier  CMRR  at  60Hz  G  -  500 

95 

dB 

Amplifier  Overload  Recovery  Time 

200 

usee 

OUTPUTS 

Digital  Output  Coding 

Binary,  Offset  Binary. 

Two' 

Complement 

Serial  Output  Coding 

Non-return  to  zero  (NRZ 

ADC  Conversion  Time11' 

25 

30 

usee 

Clock  Frequency1" 

520 

kHz 

Delay""  SDM856 

15 

lisec 

Delay'"  SDM857 

30 

usee 

POWER  REQUIREMENTS 

Rated  Voltage  for  Specified  Accuracy 

+14.5 

±15 

±15.5 

+4.75 

+5 

+5.25 

V 

Quiescent  Current 

SDM856.  +I5VDC 

+  10 

+20 

mA 

SDM856,  -15VDC 

-35 

-50 

mA 

SDM856.  +5VDC 

+  120 

+140 

mA 

SDM857.  +I5VDC 

+15 

+25 

mA 

SDM857.  -I5VDC 

-40 

-55 

mA 

SDM857,  +5VDC 

+  120 

+140 

mA 

Power  Dissipation  SDM856 

I3O0 

1750 

mW 

Power  Dissipation  SDM857 

1400 

1900 

mW 

ENVIRONMENTAL 

Specification  Temperature  Range 

0 

+70 

•c 

Operating  Temperature  Range 

-25 

+85 

•c 

Storage  Temperature  Range 

-55 

+100 

°c 

PRICES 

1-24 

3-99 

100-249 

SDM856JG 

149.00 

115.00 

99.00 

s 

SDM856KG 

179.00 

138.00 

125.00 

s 

SDM857JG 

179.00 

138.00 

125.00 

s 

SDM8S7KG 

197.00 

152.00 

138.00 

s 

NOTES: 

I-  Km  is  the  external  gain-setting  resistor.  (Connect  between  pins.  I  and  80). 

1  FSR  means  Full  Scale  Range,  e.g.,  FSR  is  10V  for  ±JV  range. 

3.  Adjustable  to  zero. 

4.  Includes  gain,  offset,  and  Unearity  drifts. 

5.  Conversion  lime  and  clock  frequency  can  be  externally  adjusted  from  1 3  usee 
If,™  -  1.0MHz)  io  HOwsM  if™«.  ■  118kHz).  (Conv.  times  are  for  12-bu 

resolution.) 

6.  Can  be  externally  adjusted  from  3jisec  io  300usec 


The  information  in  this  publication  has  been  carefully  checked  and  is  believed  to  be 
reliable:  however,  no  responsibility  is  assumed  for  possible  inaccuracies  or  omissions. 
Prices  and  speci ficat ions  are  subject  to  change  without  nonce.  No  patent  rights  are 
granted  to  any  of  the  circuits  described  herein. 
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PIN  DESIGNATIONS 

IAGA1N  ADJUST 

•  i 

■10 

IA  GAIN  ADJUST 

MUX  OUT  HI 

1 

•79 

IA  IN  LO 

IA  IN  HI 

■< 

71 

MUX  OUT  LO 

CH7 

* 

77 

CHI5(RET7 

CH6 

5 

76 

CHM/RET6 

CHS 

b 

75 

CHI3/RETI 

CH4 

1 

74 

CHI2/RET« 

CHJ 

i 

73 

CHII/RET3 

CHI 

g 

72 

CHI0/RET2 

CHI 

ID 

71 

CH9/RETI 

CHO 

II 

70 

CH8/RET0 

MUX  ENABLE  2 

12 

•69 

IAOUT 

MUX  ENABLE  l/AJOUT 

13 

h« 

S/H  IN 

SIN/DIF 

14 

67 

S,H  OFFSET  ADJUST 

A2  0UT 

15 

66 

S,H  CONTROL 

Al  OUT 

16 

65 

+  I5VDC 

AOOUT 

n 

M 

-ISVDC 

CLEAR 

IS 

63 

ANA  COM 

AOIN 

19 

62 

S/H  OUT 

Al  IN 

a 

61 

-6.4V  REF  OUT 

A2IN 

21 

60 

10V  RANGE 

A]  IN 

33 

59 

BPO 

LOAD 

33 

H 

20V  RANGE 

BUSY 

24 

57 

+2.SV  REF  IN 

DIG  COM 

IS 

56 

ENABLE  2 

SHORT  CYCLE 

26 

a 

+  15VREFOUT 

10-BIT  RESOLUTION 
8-BIT  RESOLUTION 

37 
31 

34 

53 

ENABLE  1 

ENABLE] 

DO(LSB) 

39 

a. 

SERIAL  OUT 

Dl 

30 

51 

CLOCK  OUT 

D2 

31 

50 

CLOCK  RATE  ADJUST 

33 

4? 

+5VDC 

D4 

33 

4X 

S1KOBE 

OS 

34 

4! 

DELAY  ADJUST 

D6 

33 

46 

TRlfl 

D7 

W 

4] 

DELAY  OUT 

Dl 

37 

4J 

on 

D9 

3S 

41 

BUSY 

010 

» 

4: 

BUSY  ENABLE 

DM  (MSB) 

*o 

41 

Dli  ENABLf 

•For  SDM857  only.  Make  no  connection  in  SDM8S6. 

MECHANICAL 


» 

INCHES 

MILLIMETERS 

MIN 

MAI 

UK 

MAX 

1 

J  110 

t.tM 

53. as 

ill? 

1 

1.BF0 

I'M 

43  41 

41  •• 

D 

01B 

Oil 

0  4* 

QS3 

' 

OM 

OSD 

0i» 

i  21 

a 

■ooe.s.r 

7  54  BAS'C 

- 

1 00  basic 

7  54  BASIC 

< 

iso     [      au 

1.B1        j       6.7S 

'. 

i  soo  basic 

19    1    BASiC 

■. 

OOI        |         010 

act     1     0.75 

■> 

niiitiic 

1  37  BASIC 

i 

IO0  BASIC 

:  sa  basic 

- 

;oo  basic 

5  OB  BASIC 

'-' 

.    100  BASIC 

21  ■•-  BASIC 

NOTE: 

Leads  in  true  position 

within  .015"  (.38mmlR 
at  MMC  at  seating 
plane. 


MATERIAL:  Alumina 
WEIGHT:  32  grams 


(1.2  0 


PINS:  Pin  material  and 
plating  composition 
conform  to  Method 
2003  (solderability)  of 
Mil-Sld-883  (except 
paragraph  3.2) 
MATING 
CONNECTOR: 
2350MC  (Set  of  four 
20-pin  strips)  or 
0422MC  (assembled  unit). 


TYPICAL  PERFORMANCE  CURVES 


INSTRUMENTATION  AMPLIFIER/MULTIPLEXER 
CMRR  VS  FREQUENCY  (SDM857) 


G 

"Ov   G  = 

100 

S 

sS 

10  100  Ik  10k  100k 

Frequency  IHz) 


POWER  SUPPLY  REJECTION  VS  POWER  SUPPLY 

RIPPLE  FKEQUENCYfSDM8S6,'357> 


0.1 

/♦ 

JVDC 

/ 

/ 

/ 

J-I5VDC 

A, 

/   ^.+5VDC 

/ 

/. 

s* 

7  - 

r — 

A/DCONVERTER  LINEARITY  ERROR 
VS  CONVERSION  TIME  (SDM856/857) 


0.0485 

iMtus 


8-Bit 

-■■Bit 

\i  0-Bit 

12-Bil 

I.2LSB 
12-Bil 



^rw 

— 

i_  on  version  Time  (usee) 


A^D  CONVERTER  DIFFERENTIAL  LINEARITY  ERROR 
VS  CONVERSION  TIME  (SDM856'837i 


|  8-Bit 

8-Bit 

\  10-Bit 

12-Bil 

~t*-BiT 
I/2LSB 

12-Bii 

\ 

-^< 

\ 

^ 

Conversion  Time  ( usrci 


ACCURACY  DRIFT  VS  TEMPERATURE 
(SDM856/8J7) 


NONLINEARITY  AND  SETTLING  TIME  VS 
AMPLIFIER  GAIN  (SDM857) 


~7 

// 

Settling 

— un-"" 

-  i       i 

i     i 

OUTPUT  NOISE  VS  AMPLIFIER  GAIN  (SDM857) 


/            y 

M 

'^ 

■  i 1 

// 

I       i 

INSTRUMENTATION  AMPLIFIER  OFFSET 
WARM-UP  (Gain  m  500)  (SPM8S7) 


1 

1 

5                    20 

CASE  TEMPERATURE  VS  TIME  WITH  NO  HEAT 
SINK  OR  AIR  FLOW  (SDM856/857) 

a) 
30 

£ 

3        20 
I 

10 

T 

A/D  CONVERSION  TIME  VS  CLOCK  RATE  CONTROL 
VOLTAGE.  12-BIT  RESOLUTION  (SPM8S6f8S7) 


Convention  Time(usecl.  II-Bii  Resolution 


DESCRIPTION  OF  PIN  FUNCTIONS 


( 


< 


( 


Pin  48 
Pin  49 
Pin  50 


Pin*  53.  54.  56 


Pin  55 

Pin  57 


DESIGNATION 

IAGAJN 
ADJUST 


(SDM857  only).  By  connecting  a  re 
amplifier  can  be  varied  as  follows: 


Pin  2 

MUX  OUT  HI 

Pin3 

IA  IN  HI 

Pins  4  thru 

II 

CH7-CH0 

Pin  12 

MUX  ENABLE  2 

Pin  13 

MUX  ENABLE  1/ 
A3  OUT 

Pin  14 

S1N/DIF 

Pirn  15. 

16, 

17 

A0  OUT  -  A2  OUT 

Pin  18 

CLEAR 

Pins  19. 

20. 

21.22 

AO  IN  -  A3  IN 

Pin  23 

LOAD 

Pin  24 

BUSY 

Pin  25 

DIG  COM 

Pin  26 

SHORT  CYCLE 

Pin  27 

10-BIT  RESOLUTION 

Pin  28 

8-BIT  RESOLUTION 

Pins  29 

(hru40 

DM311 

Pin  41 

Dll  ENABLE 

Pin  42 

BUSY  ENABLE 

Pin  43 

BUSY 

Pin  44 

dm 

Pin  45 

DELAY  OUT 

Pin  46 

TrTg" 

Pin  47 

DELAY  ADJUST 

DESCRIPTION 

r  between  pin  I  and  pin  80  th 

Gain  =*  2  +  (20kfl/  Rest) 


,1  instrumentation 


where  Rut  is  the  gain  setting  resistor.  The  IA  is  factory  adjusted  for  a  gain  of  2  without  any  external  resistor, 
important:  If  a  gain  greater  than  10  is  required  an  external  capacitor  must  be  connected  from  'DELAY  ADJ." 
(pin  47)  io  +5VDC.  This  increases  an  internal  delay  to  allow  for  the  increased  settling  time  of  the  instrumentation 
amplifier  (see  page  12).  For  SDM856  make  no  connection. 

High  output  of  the  analog  input  multiplexer.  Connect  to  pin  3  (IA  IN  HI)  for  differential  operation.  Connect  to 
pin  78  (MUX  OUT  LO)  and  pin  3  (SDM8ST)  or  (S/H  IN)  pin  68  (SDM856)  for  single-ended  input  operation. 

(SDM857  only).  Positive  input  of  the  internal  instrumentation  amplifier.  Connect  to  pin  2  (MUX  OUT  HI)  for 

normal  operation.  For  SDM856  make  no  connection. 

The  first  8  (of  16)  analog  inputs  for  single-ended  operation  or  the  8  positive  inputs  for  8-channel  differential 

input  operation. 

Connect  to  pin  14  (S1N/DIF)  for  single-ended  input  operation.  Connect  to  pin  13  (MUX  ENABLE  I)  for 

differential  input  operation. 

Leave  open  for  single-ended  input  operation.  Connect  to  pin  12  (MUX  ENABLE  2)  for  differential  input 

operation.  Abo,  A3  output  line. 

Single/  Differential  input  operation.  Connect  to  pin  12  (MUX  ENABLE  2)  for  single-ended  operation.  Leave  open 

for  differential  input  operation. 

Output  lines  from  input  channel  address  Latch  (A3  OUT  is  on  pin  13). 

A  low  on  this  line  clears  the  address  latch  causing  the  SDM8S6/857  to  address  channel  0  regardless  of  the 

information  present  on  AO  IN  -  A3  IN.  Connect  to  +5VDC  or  to  user  logic  circuitry. 

Address  line*  that  select  one  of  16  analog  input  signals  (CHO-CH 15).  0000  selects  channels  0  and  1 1 1 1  selects 

channel  15.  Connect  A3  to  ground  for  6-channel  differential  operation.  The  address  is  latched  with  a  positive  TTL 

edge  on  the  LOAD  (pin  23). 

A  positive  TTL  edge  on  this  pin  latches  the  input  channel  address  present  on  AO  IN  -A3  IN  (pins  19,20.21.22). 
This  signal  will  be  low  during  the  A/D  convention  (~25*isec).  Output  data  is  not  valid  while  this  signal  is  low. 
Connect  to  S/H  CONTROL  (pin  66). 
Digital  common.  Connect  to  ANA  COM  (pin  63)  as  close  to  the  SDM856/857  as  possible. 

Ths  pin  allows  short  cycling  the  A/  D  converter  for  lower  resolutions  thereby  obtaining  faster  conversion  times. 
Connect  to  +5VDC  (pin  49)  for  12-bit  resolution,  (pin  27)  for  10-bit  resolution,  or  (pin  28)  for  8-bit  resolution. 

To  short  cycle  to  10-bit  resolution  connect  to  pin  26.  Otherwise,  make  no  connection. 

To  short  cycle  to  8-bit  resolution,  connect  to  pin  26.  Otherwise,  make  no  c 

12-bit  data  bus.  3-state  low  power  Schottky  TTL-compatibk. 

DTT  (pin  441  is  enabled  when  DT7  ENABLE  is  low. 


BUSY  (pin  43)  is  enabled  when  BUSY  ENABLE  is  low. 

3-state  output  that  will  be  high  only  while  an  A/  D  conversion  is  in  process.  Output  data  is  not  valid  while  this  signal 

is  high. 


required. 

to  allow  for  the  settling  of  the  multiplexer 


sTr"o"bT 

+5VDC 

CLOCK  RATE  ADJUST 


MSB.  Use  instead  of  Dl  I  when  two's  complement  output  a 

This  pulse  is  used  to  delay  the  beginning  of  the  A/D  a 
instrumentation  amplifier,  and  sample/hold. 

A  negative  TTL  edge  on  this  pin  initiates  the  A'  D  conversion.  Connect  to  DELAY  OUT  (pin  45). 

When  the  SDM856/857  is  addressed,  an  internal  delay  of  approximately  30^sec  (SDM857)  or  15(isec(SDM856) 

is  initiated  to  allow  for  multiplexer,  instrumentation  amplifier,  and  sample/  hold  settling  time.  When  the  IA  is 

operated  with  gain  >  10  this  delay  must  be  increased  to  allow  for  the  increased  settling  time  of  the  IA.  (see 

Table  IV  and  page  14,  The  delay  can  also  be  shortened  for  faster  lower-resolution  operation. 

A  negative  TTL  edge  on  this  pin  initiates  the  DELAY  OUT  pulse. 

+5VDC  at  140mA  maximum,  120mA  typical 

Varying  the  voltage  at  this  pin  changes  the  clock  frequency  and  thereby  changes  the  conversion  speed  of  the  AD 
converter.  Connect  to  DIG  COM  (pin  25)  for  12-bit  operation  (25«isec  A/D  conversion  time).  Connect  to 
+5VDC  for  10-bit  operation  and  connect  to  +I5VDC  for  8-bit  operation,  (see  page  13). 


SERIAL  OUT 


A/D  converter  clock  output.  Output  is  present  only  during  A/D  conversion.  N  +  I  TTL  pulses  a 
520kHz  rate  where  N  is  the  resolution. 

Serial  output  data  in  NRZ  format  is  synchronous  with  CLOCK  OUT  (pin  5 1 1  signal.  Use  negative  ed{ 
OUT  to  strobe  each  bit. 


e  output  at  a 
I  of  CLOCK 


ENABLE  3 ■ 
ENABLE  !■■ 
ENABLE.  : 

+15V  REF  OUT 
+2.5V  REF  IN 


3-state  enable  lines  for  data  bus  DM  -  DO  (MSB  =  Dll).  ENABLE  I  (pm  54)  enables  Dll  -  D8; 

ENABLE  2  (pin  56)  enables  D7  -  D4:  ENABLE  3  (pin  53)  enables  D3  -  DO.  A  low  on  the  enable  line  enables 

data  outputs. 

Positive  voltage  reference  output.  Connect  to  REF  IN  (pin  57)  (through  50fl)  for  unipolar  or  bipolar  operation 
(unless  an  external  reference  is  used).  Also  connect  to  BPO  (pin  59)  (through  25fl)  for  bipolar  operation. 
Reference  voltage  input.  Connect  to  +2.5V  REF  OUT  (pin  55)  (through  50(1  resistor  or  lOOfl  pot)  or  use 
external  +2.5V  reference.  (+2.5V  ±IOmV  at  0.5mA  required). 


DESCRIPTION  OF  PIN  FUNCTIONS 


NUMBER 

DESIGNATION 

Pin  58 

20V  RANGE 

Pin  59 

BPO 

Pin  60 

10V  RANGE 

Pin  61 

Pin  62 
Pin  63 
PinM 
Pin  65 
Pin  66 
Pin  67 
Pin  68 

Pin  69 


DESCRIPTION 

A;  D  convener  input  resistor.  Using  SDM857:  connect  to  S/H  OUT  (pin  62)  for  ±5V  operation.  Leave  open  for 
other  input  ranges.  Using  SDM8S6:  leave  open  unleu  an  external  1A  with  a  gain  greater  than  2  is  used. 
(Input  multiplexers  are  limited  to  ±6V  maximum  input  voltage.) 


-6.4V  REF  OUT 

S/H  OUT 

ANA  COM 

-I5VDC 

+ISVDC 

S/H  CONTROL 

S/H  OFFSET  ADJUST 

S/H  IN 

IAOUT 


Pins  70  thru  77 

CH8-CHI5 

RETO  -  RET7 

Pin  78 

MUX  OUT  LO 

Pin  79 

IA  IN  LO 

Pin  80 

IA  GAIN  ADJUST 

r  or  a  500  pot  for  bipolar 


A/D  converter  bipolar  offset  Connect  to  REF  OUT  (pin  55)  through  a  250  r 
operation.  Leave  open  for  unipolar  operation. 

A  /  D  converter  input  resistor.  Using  SDM857  with  internal  instrumentation  amplifier  with  a  minimum  gain  of  2: 

connect  to  S/H  OUT  (pin  62)  for  0  to  +5V  mux  input  unipolar  operation  or  ±2.5V  mux  input  bipolar  operation. 

Leave  open  for  i5V  input  bipolar  operation.  Using  SDM856  without  IA;  connect  to  S/H  OUT  (pin  62)  for  ±5V 

mux  input  operation. 

Negative  voltage  reference  output  Maximum  current  drain  from  this  point  without  degradation  of  specifications 

is200mA. 

Sample/hold  output  Connect  to  I0V  RANGE  (pin  60)  or  20V  RANGE  (pin  58)  for  normal  operations. 

Analog  common.  Connect  to  DIG  COM  (pin  25)  as  close  to  the  SDM856/857  as  possible. 

-ISVDCai  30mA  typical. 

-H5VDC  at  30mA  typical. 

A  low  signal  on  this  line  causes  the  sample/  hold  to  enter  the  hold  mode.  Connect  to  BUSY  (pin  24). 

Offset  adjust  for  sample/hold  (see  Figure  10). 

Input  to  sample/hold  amplifier.  Connect  to  IAOUT  (pin  69- SDM857)  or  MUXOUTHI(pin  2)  and  MUX  OUT 

LO  (pin  78  •  SDM856). 

(SDM857  only).  Instrumentation  amplifier  output.  Connect  to  S/  H  IN  {pin  68)  for  normal  operation. 

For  SDM8S6  make 


Analog  inputs  8  through  15  for  single-ended  operation  or  analog  returns  0  through  7  for  differential  input 

operation. 

Multiplexer  output  for  CH8-CHI5  (single-ended)  or  RET0-RET7  (differential).  Connect  to  MUX  OUT  HI 

(pin  2)  and  IAIN  HI  (pin  3  -SDM857)orS/H  IN  (pin  68  -SDM856)  for  single-ended  input  operation  or  connect 

to  IA  IN  LO  (pin  79)  for  differential  input  operation. 

(SDM857  only).  Negative  input  of  instrumentation  amplifier.  Connect  to  ANA  COM  (pin  63)  for  single-ended 

input  operation  or  MUX  OUT  LO  (pin  78)  for  differential  input  operation.  For  SDM856  make  no  connection. 

See  pin  I  description. 


c 


2.5kil 


,—o 


)ooa^»c 


Conned  to  I  *  J  Analog 
Input)  0  i  nru  6. 
Tie  unused  input  to 
Analog  Common 


Addrm  Ouipul  * 
Logic  o>  NC 
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To  Digital  Dtta  But    \ 
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-® 
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_3 

§ 
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© 
S 
© 
© 
© 
© 
Q 

i 
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■  AGAIN  ADJUST 
MUX  OUT  HI 
IAIN  HI 


[AGAIN  ADJUST 

IA1NLO 

MUX OUT  LO 


(|5us 


'ANALOG  INPUT  (+1 


MUX  ENABLE  2 
MUXENABLE  I/A30UT 
SIN/DIF 
A20UT 
AIOUT 
AOOUT 
CLEAR 
AOIN 
ANN 
A2IN 
A3  IN 
LOAD 
BUSY 
DIG  COM- 
SHORTCYCIE 
ID-BIT  RESOLUTION 
8-BIT  RESOLUTION 


ANALOG  INPUTS  (-)  * 


© — ' 

§£Z] 

© 

© 

© 
3 
© 
©_ 


IAOUT 
K/KM 

S'H  OFFSET  ADJUST 
S/H  CONTROL 


+  15VDC 

■IJVDC 

•ANA.  COM 


2r 
3 

© 


Si  H  OUT 
-6.4V  REF  OUT 


20V  RANGE 

+ 2.SV  REF  IN 

ENABLE  2 

+2.5VREFOUT 


ENABLE 


»   J-STATED1GITAL0UTPUTS 


ENABLE  3 
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FIGURE  2.  Connection  Diagram  for  SDM857  Operating  Under  These  Conditions: 
IA  Gain  =  10 

Analog  Input:  Bipolar,  differential 
Reference  Voltage:  Internal 
Resolution:  12-bits 
Mode:  Normal 
Digital  Output:  Binary 


SETUP  PROCEDURE 

INPUT  CONNECTIONS 

Unused  analog  inputs  must  be  connected  to  ANA  COM, 
pin  63.  When  long  leads  are  connected  to  the  inputs,  care 
must  be  taken  that  leads  do  not  pick  up  excessive  noise 
from  external  equipment  and  wiring.  When  low  level 
applications  are  undertaken,  it  is  usually  advisable  to 
operate  the  system  as  an  8-channel,  differential  input 
system  (the  SDM856  requires  an  external  differential 
amplifier  to  operate  in  this  mode).  In  this  way  any  noise 
will  be  common  to  both  input  wires,  and  will  be  rejected 
by  the  instrumentation  amplifier.  For  best  noise  rejection 
use  twisted  shielded  pair  cable.  The  inputs  of  the 
SDM856/857  are  protected  from  damage  by  voltage  as 
high  as  15.5  volts  and  from  short  spikes  well  in  excess  of 
this  for  a  few  microseconds;  however,  careful  wiring  and 
cable  routing  practices  are  recommended. 

Single-Ended  Inputs 

Two  configurations  may  be  used  with  16  single-ended 
channels.  They  are  single-ended  with  local  ground  or 
remote  signal  ground. 


Local  Ground: 


Remote  Ground: 


Connect  pins  2  and  78  to  3 
(SDM857)  or  68  (SDM856),  79  to 
63,  unused  inputs  to  63,  and  all 
signal  returns  to  63. 
Same  as  local  ground  except 
connect  79  to  remote  signal 
ground.  (SDM857  only). 


Differential  Inputs  (SDM857) 

Connect  the  signal  inputs  to  pins  4  through  1 1 ,  and  their 
returns  to  77  through  70.  Connect  pin  12  to  13, 2  to  3, 78 
to  79,  and  69  to  68. 


Differential  Inputs  (SDM856  With  External 
Instrumentation  Amplifier) 

Connect  the  signal  inputs  to  pins  4  through  1 1 ,  and  theii 
returns  to  77  through  70.  Connect  pin  12  to  13.  Connect 
pins  2  and  78  to  the  noninverting  and  inverting  input  of 
the  amplifier  respectively.  The  output  of  the  amplifier  is 
connected  to  pin  68. 

AMPLIFIER  GAIN  (SDM857) 

The  instrumentation  amplifier  gain  may  be  set  to  any 
value  between  2  and  500  by  connecting  an  external  gain 
resistor  between  pins  I  and  80.  The  gain  is  determined  by 
the  formula:  G  =  2  +  (20kfi/RExT).  Interna!  gain 
determining  resistors  have  an  accuracy  of  ±0.1%  and  a 
maximum  temperature  coefficient  of  ±I0ppm/°C.  In 
normal  operation  IA  OUT,  pin  69  is  connected  to  S/H 
IN,  pin  68. 

SAMPLE/HOLD 


Connect  S/H  CONTROL,  pin  66,  to  the  ADC  BUSY 
output,  pin  24. 

ANALOG-TO-DIGITAL  CONVERTER  INPUT 
VOLTAGE  RANGE 

The  analog-to-digital  converter  is  essentially  a  current 
input  device  having  a  current  input  range  of  0  to  2mA. 
The  input  may  be  considered  a  virtual  ground  summing 
point.  To  convert  voltage  to  current,  a  center  tapped 
lOkfl  resistor  is  internally  connected  to  this  summing 
point.  This  is  illustrated  in  Figure  3. 

The    interconnections    of   the   ADC    pins   and    the 

S/H  OUT,  pin  62,  are  shown  in  Table  L 

TABLE  I.  ADC  Range  Jumpers. 


Input  Range  (V) 


Jumper 


59  Open.  60  to  62,  58  Open 


59  lo  55.  &Q  iQ  62.  58  Open 


59  lo  55.  58  lo  62.  60  Open 


NOTE:  Input  ranges  in  Table  I  apply  lo  ADC  only.  The  input  multiplexer  is 
limited  to  ±6V  maximum. 


+2.5V  +2.5V 

REFOUT  REF1N 

Q 


10V         20V 
BPO      RANGE   RANGE 


Successive 

Approximation 

Register 


FIGURE  3.  Analog-to-Digital  Converter. 


OUTPUT  CODE 

For  unipolar  binary  and  offset  binary  use  Dl  1  (pin  40) 
for  the  most  significant  bit.  Two's  complement  binary  is 
obtained  by  using  pin  44,  BTT ,  as  the  most  significant  bit. 
One's  complement  code  may  be  obtained  by  a  different 
offset  adjustment  in  the  calibration  procedure.  Two's 
complement  and  one's  complement  codes  are  usually 
used  only  for  bipolar  signal  ranges.  For  12-bit  resolution. 
SHORT  CYCLE  (pin  26)  is  left  open  or  taken  to  +5VDC. 
Connect  pin  26  to  pin  27  (10-bit)  or  pin  28  (8-bit)  to 
obtain  lower  resolution.  The  conversion  lime  will  be 
shortened  by  the  following  formula: 
(Conversion  Time)  =  (25MSec)  x  [1  -  (I2-R/13)] 
Where  R  is  the  resolution  desired. 

NORMAL  AND  OVERLAP  MODE 

The  two  basic  modes  of  system  operation  are  normal  and 
overlap.  In  normal  operation  the  channel  address,  N,  is 


loaded  or  clocked  into  the  address  latch.  The  addressed 
channel  will  remain  selected  during  its  analog-to-digital 
conversion.  In  overlap  mode  channel  N  +  1  is  selected 
while  channel  N  is  being  converted.  This  can  be  used  to 
increase  the  system  throughput  rate  by  allowing  the 
multiplexer  and  instrumentation  amplifier  to  settle  while 
a  conversion  is  being  made.  In  this  way  the  throughput 
rate  is  limited  by  the  sample/  hold  acquisition  time  and 
the  analog-to-digital  converter  conversion  time.  This  will 
be  true  except  for  low  level  operation  where  the 
instrumentation  amplifier's  settling  time  has  been 
increased  to  a  value  greater  than  that  required  for  the 
sample/  hold  and  converter.  For  this  reason,  the  overlap 
mode  is  more  desirable  for  low  level  signals.  Table  II  and 
Figures  4  and  5  provide  additional  timing  details.  At  high 
signal  levels  a  high  source  resistance  may  increase  the 
multiplexer  settling  time  to  an  extent  which  makes  the 
overlap  mode  desirable  (see  page  12). 


FIGURE  4.  System  Timing  for  Overlap  Operation. 
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FIGURE  5.  System  Timing  for  Normal  Operation. 


Normal  Mode  Connections 

Connect  DELAY  OUT,  pin  45  to  TRIG,  pin  46. 

Overlap  Mode  Connections 

Connect  BUSY,  pin  24  to  STROBE,  pin  48,  and 
DELAY  OUT,  pin  45  to  TRIG,  pin  46.  Adjust  the  delay 
as  shown  in  Table  II  and  described  in  the  following 
paragraph. 

DELAY  ADJUSTMENT 

The  delay  timer  may  be  adjusted  with  an  external 


capacitor  or  resistor  from  DELAY  ADJUST  (pin  47)  to 
+5VDC.  A  capacitor  will  increase  the  delay  to  allow  for 
the  increased  settling  time  of  the  instrumentation 
amplifier  at  high  gains  while  a  resistor  will  decrease  the 
delay  to  allow  for  increased  throughput  rate  with  an 
external  high  speed  instrumentation  amplifier  or  lower 
resolution  operation. 

The  values  of  R  and  C  versus  delay  for  both  the  SDM856 
and  SDM857  are  shown  in  Figures  6,  7,  8  and  9. 


TABLE  II.  Throughput  Rate  and  Delay  Time  vs  Gain  for  Normal  and  Overlap  Modes. 


System 
Gun 

System 

Throughput  Rue  (nun) 
(Channels  /sec) 

Delay  Time  (face) 

Accurecv 

Normal 

Overlap 

Normal 

Overlap 

V/V 

KG 

JG 

JG 

KG 

JG               KG 

JGand  KG 

JG               KG 

1              856  only 

±0.024% 

±0.043% 

33k 

251c 

38k             27k 

15 

26                35 

2              857  only 
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:2k 
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38k             27k 

30 

26                35 

10            857  only 
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38k              27k 

30 

26                35 
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FIGURE  6.  Typical  Capacitor  Value  to  Increase  Delay 
Time(SDM857).» 


FIGURE  7.  Typical  Capacitor  Value  to  Increase  Delay 
Time  (SDM856).  * 
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FIGURE  8.  Typical  Resistor  Value  to  Decrease  Delay 
Time  (SDM857).  ♦ 
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FIGURE  9.  Typical  Resistor  Value  to  Decrease  Delay 
Time  (SDM856).  * 

°Capacitor  or  resistor  is  connected  from  pin  47  lo  +5V  supply. 


GROUNDING  CONSIDERATIONS 

The  circuit  configuration  of  a  high  speed  successive 
approximation  A/D  converter  is  such  that  low  level 
analog  and  digital  signals  are  in  close  proximity.  In  fact 
4i  the  two  circuits  are  actually  interconnected;  for  this 

*  reason  no  AC  noise  voltage  should  be  allowed  to  exist 

between  digital  and  analog  ground.  Digital  and  analog 
ground  should  be  connected  as  close  to  the  unit  as 
possible.  In  a  typical  application  an  SDM  module  will  be 
used  near  a  computer.  For  best  results  the  SDM  digital 
ground  should  be  connected  to  the  computer's  +5VDC 
supply  ground  at  the  supply  terminal.  The  ±15VDC 
supply  ground  should  be  left  floating,  if  possible.  The 
Model  546  +5VDC  to  ±15VDC  DC/DC  converter  is  a 
convenient  way  to  do  this.  For  single-ended  systems, 
signal  returns  are  connected  to  analog  ground;  or  if  a 
common  remote  signal  ground  is  available,  the 
inverting  input  of  the  differential  amplifier  (SDM857) 
should  be  used  for  the  signal  return. 

CALIBRATION  PROCEDURE 

GAIN  AND  OFFSET  ADJUSTMENT 

External  gain  and  offset  adjust  potentiometers  are  shown 
in  Figure  10.  Cermet  pots  with  a  T.C.R.  of  ±100ppm/°C 
or  less  should  be  used.  The  adjustments  shown  each  have 
a  range  of  ±0.3%  of  the  Full  Scale  Range. 
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If  adjustment  of  gain  and  offset  is  not  required  Rl  and  R2 
should  be  replaced  with  25fl  and  50fl  resistors 
respectively.  These  resistors  should  be  low  T.C. 
(<±100ppm/°C)  metal  film  or  equivalent. 
The  S/H  OFFSET  ADJUST  (pin  67)  may  be  used  as  a 
fine  offset  adjustment. 

The  easiest  way  to  calibrate  the  device  is  to  connect  a 
voltage  source  to  multiplexer  input  CHO  (either 
differential  or  single-ended  input  operation  may  be  used). 
Channel  zero  will  be  addressed  by  simply  connecting 
CLEAR  to  DIG  COM. 

After  the  CHO  voltage  source  has  been  addressed,  set  it  to 
the  most  negative  value  of  the  input  range  being  used  plus 
1/2LSB.  Twelve-bit  LSB  voltage  values  are  given  in 
Table  III.  Connect  a  triggering  source  to  STROBE  and 
adjust  the  offset  potentiometer  until  all  output  bits  are 
logic  zero  with  bit  D0  dithering  between  logic  zero  and 
one.  Change  the  source  voltage  to  the  most  positive  value 
of,  the  input  range  minus  3/2LSB.  Adjust  the  gain 
potentiometer  until  all  output  bits  are  logic  one  with  bit 
DO  dithering  between  logic  one  and  zero.  When  a 
resolution  less  than  12  bits  is  used,  the  LSB  voltage  is 
given  by  the  formula  in  Table  III  where  N  is  the  number 
of  output  bits.  One's  complement  coding  is  obtained  by 
shifting  the  previous  adjustments  up  by  1  /  2LSB  using  the 
offset  potentiometer. 

TABLE  III.  LSB  Values  for  12-Bit  Resolution. 


LSB  (Volts)  =  <Range)/(2") 

Range  LSB  Voltage  (12-B 

L22nW 
2.44mV 


CLOCK  RATE  ADJUSTMENT 

To  obtain  higher  throughput  rates  at  lower  accuracy  the 
A/D  clock  rate  can  be  adjusted  by  varying  the  voltage  on 
the  clock  rate  adjust  pin.  This  point  should  be  connected 
to  digital  common  for  12-bit  accuracy,  +5VDC  for  10-bit 
accuracy,  or  +15VDC  for  8-bit  accuracy  giving 
conversion  times  of  25^sec,  15jisec  and  lOjusec 
respectively.  The  conversion  speed  can  also  be 
continuously  varied  from  about  13Msecto  HO^secf  12-bit 
resolution)  with  a  potentiometer  as  shown  in  Figure  11. 


■  +13VDC 
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ADJUST 

30 
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*22kfl 
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FIGURE  10.  External  Gain  and  Offset  Adjustment. 


FIGURE  11.  Clock  Rate  Adjustment. 


CHECKOUT  PROCEDURE 

Checkout  is  essentially  accomplished  by  the  calibration 
procedure.  Before  the  unit  is  plugged  into  a  new 
installation,  it  is  well  to  go  over  the  pin  connection  list  to 
be  sure  that  all  80  pins  have  been  properly  connected  in 
the  setup.  Linearity  and  monotonicity  may  be  verified  by 
varying  the  input  voltage  over  the  complete  range  during 
the  calibration  procedure, 

LATCH 

Latch  operation  can  be  verified  by  connecting  a  pulse 
generator  to  the  LOAD  input.  The  address  inputs  (A0 
IN  -  A3  IN)  should  appear  at  the  address  outputs  (A0 
OUT  -  A3  OUT). 

AMPLIFIER  AND  MULTIPLEXER 

To  check  amplifier  operation,  connect  a  voltmeter  to  IA 
OUT  (pin  69)  and  observe  that  the  output  follows  the 
input  voltage  as  in  the  calibration  procedure.  Check  the 
multiplexer  in  the  same  way  noting  that  the  output 
changes  when  the  address  is  changed. 

SAMPLE/HOLD 

The  sample/  hold  circuit  can  be  checked  during  the 
calibration  procedure  by  observing  the  output  of  the 
S/H  OUT  (pin  62)  with  an  oscilloscope.  The  waveform 
should  be  approximately  as  in  Figure  12. 
The  charge  offset  will  vary  in  a  linear  manner  from  about 
lOmV  for  -10V  to  30mV  for  +10V.  This  is  compensated 
for  by  the  offset  and  gain  adjustments  of  the  A/D 
converter.  The  spikes  during  conversion  are  normal  noise 
caused  by  the  converter  operation. 


-A/D  Conversion- 
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lOmV  to  30m  V 


FIGURE  12.  Sample/Hold  Output  Waveform. 


ANALOG-TO-DIGITAL  CONVERTER 

The  ADC  can  be  checked  out  as  an  individual  circuit 
element.  Connect  a  fixed  voltage  to  either  20V  RANGE 
(pin  58)  or  10V  RANGE  (pin  60).  After  adjusting  the  gain 
and  offset  errors  as  described  on  page  13,  the  digital 
output  should  represent  the  analog  input  as  shown  in 
Table  IV.  To  enable  the  three-state  buffers,  pins  53,  54 
and  56  should  be  connected  to  logic  0. 

In  overlap,  when  the  amplifier/  multiplexer  settling  time 
is  less  than  the  ADC  conversion  time,  set  the  delay  timer 
for  the  ADC  conversion  time  plus  the  sample/ hold 
acquisition    time    (30jisec    plus    10/xsec).    When    the 


amplifier/ multiplexer  settling  time  exceeds  the  ADC 
conversion  time  plus  the  S/H  acquisition  time,  set  the 
delay  timer  for  the  amplifier/  multiplexer  settling  time. 

TABLE  IV.  Delay  Timer  Settings  for  Specified  Settling 
Time  Accuracies  of  the  Instrumentation  Amplifier. 


Full  Sate 

Input 

ADC 

Amplifier 

Amplifier/  Multiplexer 

Range 

Range 

Gain 

Resolution 

Settling  Time  (fixe) 

To 

To 

To 

10V 

-10  to +10 

2 

2.44mV 

±0.2% 

+0.05% 

+0.01% 

S 

10 

20 

IV 

Ow+10 

10 

244*iV 

12 

H 

24 

0.1V 

0  to  +10 

100 

24.4^V 

65 

SO 

90 

20mV 

Oto+10 

500 

4.88fiV 

320 

390 

450 

APPLICATION  NOTES 

CHANNEL  CAPACITY  EXPANSION 

The  SDM856/857  may  be  easily  expanded  to  any 
number  of  channels  by  using  Burr-Brown  Models 
MPC8D  and  MPC16S.  The  MPC8D  is  an  8-channel 
double-ended  multiplexer,  and  the  MPC16S  is  a  16- 
channel  single-ended  multiplexer.  These  devices  are 
CMOS  FET  units  which  can  operate  from  supply 
voltages  up  to  ±20VDC.  They  feature  latch-free 
operation  with  full  input  protection.  Binary  decoding 
and  level  shifting  circuits  are  included.  Logic  levels  are 
jumper  selectable  for  TTL  or  CMOS.  Packaging  is  a  28- 
pin  DIP. 

There  are  two  methods  for  using  these  devices  for  channel 
capacity  expansion.  The  SDM856/857  multiplexer  may 
be  expanded  by  shunt  or  series  connected  multiplexers. 
Shunt  connection  refers  to  connecting  the  output  of 
several  multiplexers  together  and  enabling  each  in 
sequence.  The  disabled  devices  present  a  very  high 
resistance  to  the  common  output  line.  The  disadvantages 
to  this  scheme  are  increased  leakage  current  and  output 
capacitance.  For  these  reasons  shunt  connections  are 
usually  used  only  when  it  is  desired  to  expand  the 
capacity  by  a  factor  of  two  or  three.  A  shunt  connected 
system  logic  diagram  is  shown  in  Figure  13.  Forty-eight 
single-ended  channels  are  indicated;  however  24  double- 
ended  channels  could  easily  be  realized  by  using  two 
MPCSD's  and  connecting  the  two-sided  outputs 
appropriately.  For  large  systems  series  connected 
expansion  is  usually  used.  In  this  method  the  outputs  of  a 
second  tier  of  multiplexers  are  connected  to  the  inputs  of 
the  SDM856/857  multiplexer.  This  allows  up  to  256 
single-ended  or  128  double-ended  channels  to  be 
addressed.  A  third  tier  can  be  used  for  4096  single  or  2048 
double-ended  channels.  A  logic  diagram  of  a  series 
system  is  shown  in  Figure  14.  Double-ended  operation 
can  be  obtained  by  using  the  MPC8D  instead  of  the 
MPC16S  and  connecting  the  SDM856/857  for  double- 
ended  operation. 

SEQUENTIAL  ADDRESSING 

Simply  adding  an  external  counter  will  allow  sequential 
addressing  of  all  16  input  channels  (see  Figure  15). 
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FIGURE  13.  Shunt  Connected  Multiplexer  System  32 
Single-Ended  Channels. 
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FIGURE  14.  Series  Connected  Multiplexers,  256  Single- 
Ended  Channels.  Sequential  Addressing. 
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MULTIPLEXER  CIRCUIT  OPERATION 

At  the  address  and  enable  inputs  a  voltage  is  interpreted 
as  a  logic  "  1"  if  it  is  greater  than  2.4  volts;  and  "0"  if  less 
than  0.8  volts. 

When  an  input  channel  has  been  selected  the  "on 
resistance"  from  input  to  output  is  approximately  1.8kfl. 
The  input  capacitance  for  each  channel  is  approximately 
7pF;  while  the  output  capacitance  is  approximately  25pF 
for  each  8-channel  multiplexer.  A  circuit  model  of  an  ON 
channel  is  shown  in  Figure  1 6. 


FIGURE  15.  Sequential  Addressing. 


FIGURE  16.  ON  Channel  Circuit  Model. 


This  model  is  very  important  when  highspeed  switching 
of  high  output  impedance  sources  is  required.  For 
example,  if  the  full  accuracy  and  resolution  of  the  system 
is  required,  the  signal  at  the  output  of  the  multiplexer 
must  be  allowed  to  settle  to  about  0.01%.  If  the  source 
impedance  is  IkO,  the  7pF  can  be  neglected  and  the 
multiplexer  has  a  time  constant  of  2.8kft  x  SOpF  = 
I40nsec.  It  requires  approximately  9  time  constants  to 
settle  to  0.01%;  \. 2b usee  is  well  within  the  30usec 
(SDM857)  or  15mscc  (SDM856)  of  the  delay  timer. 
However,  if  the  source  impedance  had  been  lOkfl,  the 
0.01%  settling  time  would  have  approached  6^xsec.  For 
high  speed  multiplexing  of  higher  impedance  sources,  it 
will  usually  be  desirable  to  parallel  the  7pF  input 
capacitor  with  a  large  capacitor,  however,  this  could  limit 
the  source  bandwidth.  In  any  case  there  is  no  point  in 
making  it  any  larger  than  I0J  times  the  output 
capacitance,  or  0.5mF.  When  this  size  storage  capacitor  is 
used,  the  output  time  contant  is  1 .8kfl  x  50pF  *  90nsec. 
This  means  that  the  system  settling  time  is  essentially 
determined  by  the  settling  time  of  the  differential 
amplifier  and  sample/hold  circuit.  For  switching  of  large 
signals  it  must  be  remembered  that  the  ON  resistance  is 
the  channel  resistance  of  a  FET,  and,  as  such,  it  is  a 
nonlinear  function  of  the  applied  voltages.  Any  FET  will 
current  limit  at  its  Idss  value.  As  a  result,  the  previous 
calculations  are  only  an  approximation  derived  from  a 
linearized  model.  The  settling  time  to  0.01%  for  a  20V 
step  is  approximately  A.Onscc  for  source  impedance  less 
than  IkH. 

The  analog  and  digital  inputs  have  reverse  biased  diode 
circuits  which  prevent  damage  from  discharge  of  static 
electricity.  However,  it  is  still  wise  to  take  reasonable 
precaution  against  static  discharge. 

BINARY  SCALING 

Binary  scaling  of  the  A/D  converter  provides  LSB 
voltages  of  2.5mV,  2.5mV,  and  5.0mV  for  voltage  ranges 
ofOto  10.24V,  -5.12V  to  +5.12V,  and  -10.24V  to  +10.24 
respectively.  These  may  be  obtained  by  adding  external 
resistors  in  series  with  input  resistors  of  the  A/D 
converter.  Metal  film  resistors  with  temperature 
coefficients  of  less  than  100ppm/oC  are  recommended. 
This  is  shown  in  Figure  17. 


THERMOCOUPLE  TEMPERATURE 
ACQUISITION 

Thermocouples  are  often  used  as  temperature  sensors  for 
process  control  systems.  Thermocouples  are  character- 
ized by  temperature  coefficients  of  10  to  70mV/°C  and 
operating  ranges  of  minus  hundreds  to  plus  thousands  of 
degrees  centigrade.  When  the  SDM857  is  operated  with  a 
instrumentation  amplifier  gain  of  100  to  500,  it  may  be 
connected  directly  to  these  devices.  However,  electronic 
instrumentation  is  usually  mounted  in  a  temperature 
controlled  environment  with  long  runs  of  thermocouple 
wire  to  the  actual  point  of  temperature  measurement. 
These  long  wire  runs  often  pick  up  large  common-mode 
noise  signals  of  60Hz  or  higher  frequencies.  When  the 
SDM857  is  used  as  an  8-channel  differential  input 
system,  the  high  common-mode  rejection  of  the 
instrument  amplifier  will  reject  common-mode  noise.  To 
minimize  differential  mode  noise,  signal  wires  should  be 
twisted  and  possibly  shielded.  As  a  rule,  an  open  twisted 
pair  is  better  than  a  coax,  and  a  shielded,  twisted  pair 
better  still.  In  applications  where  these  wiring  practices 
cannot  always  be  observed,  a  differential  RC  filter  may 
be  used  (see  Figure  19). 

The  10kH  resistors  and  a  10^F  capacitor  provide  low- 
pass  filtering  (U  =  0.8Hz)  while  the  1  MO  resistors  supply 
bias  current  to  the  instrumentation  amplifier.  The  remote 
sensor  should  be  earth  grounded  to  prevent  common- 
mode  voltages  from  exceeding  the  +10V  range  of  the 
multiplexer.  This  will  usually  supply  bias  current; 
however,  the  resistors  provide  a  back  up.  It  is  not  obvious 
what  resistance  the  bias  currents  of  the  amplifiers  will  see. 
The  1  Mfl  resistors  do  not  enter  into  an  error  calculation 
for  input  drift  because  the  low  resistance  of  the  sensor 
shorts  any  differential  voltage  that  might  be  caused  by  the 
offset  or  difference  current  of  the  amplifier.  Offset  or 
difference  current  is  merely  the  difference  between  the 
bias  currents  of  each  input.  See  page  17  for  a  worst  case 
error  analysis  of  the  input  filter  for  multiplexed  data 
acquisition  systems.  The  1  Mil  resistors  could  have  been 
put  on  the  output  side  of  the  multiplexer  eliminating  the 
need  for  repeating  them  for  each  input;  however,  this 
would  have  loaded  the  10kH  resistors  of  the  filter  causing 
a  possible  1%  error  for  static  conditions. 
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To  complete  a  thermocouple  system  it  is  necessary  to 
terminate  all  thermocouple  wire  pairs  at  an  isothermal 
box  or  connector  strip  of  some  type.  An  ordinary  barrier 
strip  in  an  enclosed  cabinet  with  even  air  circulation  is 
usually  adequate.  The  temperature  of  this  barrier  strip 
must  be  monitored  to  allow  the  observed  thermocouple 
emf  to  be  cold  junction  compensated.  Figure  1 8  shows  an 
excellent  circuit  for  this  purpose.  Its  output  is  connected 
to  one  of  the  input  channels  to  supply  ambient 
temperature  data  to  the  system  computer. 


FIGURE  17.  Binary  Scaling. 
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INPUT  FILTER  DESIGN  FOR  LOW 
LEVEL  SYSTEMS 

When  the  SDM856/857  is  used  to  acquire  low  level 
sensor  data,  it  is  often  desired  to  place  a  low-pass,  passive 
filter  on  each  input.  This  is  usually  done  to  reduce  any 
differential  mode,  power  line  frequency  pickup.  Figure 
20  shows  such  a  circuit. 
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FIGURE  20.  Input  Filter  Design  for  Low  Level  System. 

This  circuit  is  deceptive  in  its  simplicity.  Actually  four 
errors  sources  should  be  considered  in  its  design.  They 
are  loading,  offset  current,  charge  transfer,  and  pump  out 
current. 

The  static  loading  error  is  simply  the  resistive  divider 
created  by  the  filter  resistors  and  the  lOOMfl  input 
resistance.  For  low  level  sensors,  0. 1  %  system  accuracy  is 
usually  adequate.  Thus  R  should  be  less  than  I0~J  x 
(100Mft)=  lOOkfl.  However,  if  the  inputs  are  scanned  at 
a  high  speed,  and  between  scans  the  multiplexer  can  be 
addressed  to  a  unique  channel  having  a  lower  resistance, 
higher  filter  resistances  can  be  tolerated  because  the  large 
filter  capacitor  will  act  as  a  voltage  source  during  the 
30m«c  to  lOO^sec  period  required  to  read  each  channel. 
The  filter  capacitors  will  then  recharge  between  scans. 


The  input  offset  current  caused  by  the  bias  currents  of  the 
instrument  amplifier  as  well  as  any  leakage  current  of  the 
multiplexer  will  cause  an  error  voltage  proportional  to 
the  size  of  the  filter  resistors  (E  =  Ios  x  2R).  Of  course,  this 
is  a  static  error  and  as  for  loading  error,  may  not  be 
important  for  some  operating  conditions.  If  all  channels 
have  the  same  resistance  most  of  this  error  may  be 
corrected  by  the  offset  adjustment  of  the  analog-to- 
digital  convener.  If  the  offset  current  drift  is  0.1nA/°C 
the  error  is  2R  x  O.InV/°C.  For  lOkfl  resistors  this  would 
be  2nVI°C. 

When  the  multiplexer  scans,  charge  will  be  transferred 
from  the  filter  capacitor  to  the  25pF  output  capacitance 
of  the  multiplexer.  For  less  than  0. 1  %  of  full  scale  error, 
the  filter  capacitor  must  be  larger  than  25000pF.  This 
assumes  that  adjacent  channels  may  differ  by  the  full 
scale  voltage. 

Pumpout  current  refers  to  charge  being  transferred  from 
the  filter  capacitor  to  the  multiplexer  capacitance  at  time 
intervals  short  enough  that  the  filter  capacitor  does  not 
have  time  to  recharge  between  scans.  At  high  scan  rates 
this  may  be  considered  a  DC  current  which  may  add  to 
the  offset  current.  Assume  a  IOjiF  capacitor  sampled 
once  per  millisecond.  For  a  20mV  full  scale  range,  the 
maximum  effective  current  is  (20mV  x  25pF)/ lmsec  = 
0.5nA.  If  the  filter  resistors  are  lOkfl,  a  0.5nA  x  20kfl  = 
lOjiV  error  is  created. 

When  no  input  filter  is  used,  the  signal  source  must  be 
able  to  charge  the  multiplexers  and  any  cable  capacitance 
during  the  channel  acquisition  time  of  the  multiplexer 
and  amplifier.  This  is  discussed  on  page  16.  When  all  of 
these  errors  as  well  as  the  basic  2.0mV/oC  input  offset 
voltage  drift  of  the  amplifier  are  considered,  the  overall 
system  accuracy  may  be  estimated. 


INSTRUMENTATION  AMPLIFIER 
OVERLOAD  RECOVERY 

If  an  analog  input  channel  is  left  open  or  is  opened  due  to 
a  sensor  failure  it  is  possible  for  the  instrumentation 
amplifier  to  saturate  when  that  channel  is  addressed. 
Since  the  overload  recovery  time  of  the  IA  is  usually 
much  longer  than  the  settling  time  specification,  this  can 
cause  an  error  on  the  NEXT  channel  that  is  addressed. 
One  way  to  avoid  this  problem  is  to  connect  I00MO 
resistors  from  the  instrumentation  amplifier  inputs  to 
analog  common  as  shown  in  Figure  21.  This  technique 
will  generally  work  for  high  level  input  (gain  ^  10).  With 
low-level  inputs  the  offset  current  of  the  IA  will  usually 
cause  saturation  to  occur  anyway. 
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FIGURE  21.  Circuit  to  Prevent  High  Level  Saturation. 

The  SDM856  and  SDM857  can  be  readily  interfaced- to 
operate  with  microprocessors.  The  following  circuit 
diagrams  illustrate  several  typical  applications.  The  logic 
functions  are  all  TTL. 


MOO 

S  DM  856 

AI5 

A5 

02 

R/W 

A0 
HALT 

DO 
DI 
D2 
D3 

CM 

D5 
D6 
D7 

Ifil 

+5VDC 
IfcO 

LOAD 

■Iffr 

O'- 

r~ \ 

pL> 

"^  i 

=0              r-N 

.jsJr*\I 

ENABLE  2 

^V^LJ^ 

BUSY 

n 

clr""1"1- 

1    , 

AOIN 

Al  IN 

A21N 

A3  IN 

MUX  OUT  HI 

MUX  OUT  LO 

1 

\*    i — 

^"m       / 

£  pi        /  Burr-Brown 

S/HIN 

DO 
Dl 
D2 
D3 
D4 
D5 
D6 
D7 
D8 
D9 

Din 

DII 

7 

FIGURE  23.  SDM856  and  3606  PGA  Interfaced  to  6800. 
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FIGURE  22.  SDM856/857  Interfaced  to  6800 
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FIGURE  24.  SDM856/857  Interfaced  to  SBC80  Multibus. 
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FIGURE  25.  SDM856/857  Interfaced  to  8085. 
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DESCRIPTION 


The  3606  is  a  self-contained,  Programmable  Gain 
Instrumentation  Amplifier  (PGIA)  whose  gain  can  be 
changed  in  1 1  binary  weighted  steps  from  I  to  1024  V/ V. 
The  gain  control  is  accomplished  through  a  4-bit  TTL 
input. 

The  PGIA  function  allows  the  user  to  deal  with  wide 
dynamic  range  signals  while  maintaining  high  system 
resolution.  For  example:  when  used  with  a  10-bit  A  to  D 
converter  in  a  "floating  point"  system,  the  2'°  gain  range 
of  the  3606,  plus  the  2'°  range  of  the  converter  produces  a 
total  system  resolution  of  22°  (ss  1,000,000:1). 
Desirable  characteristics  of  a  high  performance 
instrumentation  amplifier  are  offered  by  the  3606:  high 
input  impedance  (lOGfl),  excellent  gain  nonlinearity 
(0.01%  max,  G  =  1024V/V;  0.002%  max,  G  =  1V/V), 
high  common-mode  rejection  (lOOdB  min,  G  S  4V/  V), 
low  gain  error  (0.02%  max  with  no  trimming  required), 
low  gain  temperature  coefficient  (10ppm/°C  max),  and 
tow  offset  voltage  drift  vs  temperature  (luV/"C  max 
RTI,  G  =  1024). 

Added  to  these  outstanding  instrumentation  amplifier 
characteristics  is  the  ability  to  change  the  3606's  gain 
under  control  of  a  4-bit  TTL  input  word.  An  important 
characteristic  of  the  3606  PGIA  is  its  low  change  in  offset 
voltage  when  gain  is  changed.  A  unique  design  approach, 


plus  laser  trimming  minimizes  this  change  to  a 
maximum  of  ±25mV  with  no  external  adjustments.  With 
two  simple  offset  adjustments  the  change  can  be  limited 
to  less  than  2mV(lmV  typ)  at  the  output  over  the  entire 
1V/V  to  1024V/V  gain  range. 

A  simplified  schematic  of  the  3606  is  shown  in  Figure  1. 
The  circuit  consists  of  a  variable  gain  high  input 
impedance  voltage  follower  input  stage  (Al  and  A2) 
followed  by  a  unity  gain  difference  amplifier  (A3)  with  a 
variable  gain  output  stage  (A4). 

Common-mode  voltage  is  derived  for  active  guard  drive 
to  improve  system  common-mode  rejection.  Two-pole, 
low  pass  filtering  can  easily  be  implemented  on  the  output 
stage  to  reduce  noise  bandwidth  and  improve  system 
signal-to-noise  operation.  A  latch  function  is  provided  to 
inhibit  gain  changes  while  the  digital  gain  control  input  is 
changed. 

Burr-Brown's  instrumentation  grade  monolithic 
operational  amplifiers,  high  stability  precision  thin-film 
resistor  networks  and  advanced  laser  trimming 
techniques  are  used  by  the  3606  to  achieve  a 
performance,  size  and  cost  combination  never  before 
achieved  in  a  PGIA.  It  is  available  in  a  32-pin  dual-in-line 
package  in  either  ceramic  or  metal  (hermetic) 
configurations. 
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FIGURE  I.  Simplified  Schematic 


ELECTRICAL  SPECIFICATIONS 


s  typical  at  25"C  unless  otherwise  noted. 


PARAMETER 

Conditions 

3o06A(7) 

3606  BO) 

Units 

MIN 

TYP 

MAX 

MIN     (      TYP     |     MAX 

GAIN.  Gil! 

Inaccuracy 

G  =  1  to  1024.  U  =  1mA 

±0.02 

±0.05 

±0.01 

±0.02 

% 

N  on  lines  my  (2) 

G  =  1  to  16 
G  -  32  to  128 
G  =  256  to  1024 

0.001 
0.003 
0.005 

0.002 
0.004 
0.01 

• 

• 

% 

Drift  vs  Temperature 

G  -  1  to  1024 

±5 

±10 

• 

■ 

ppm/'C 

vi  Time 

G  =  1  to  1024 

±0.01 

• 

%/IO»b». 

RATED  OUTPUT 

Voltage 

1.  =  ±5mA 

±10 

±12 

• 

V 

Current 

V„  =  ±I0V 

±5 

±10 

• 

• 

mA 

Impedance 

0.05 

n 

INPUT  CHARACTERISTICS 

Absolute  Max  Voltage 

No  damage 

±V(i 

. 

V 

Common-mode  Voltage  Range 

Linear  operation 

±10 

±10.5 

• 

• 

V 

Differential  Impedance 

10  II  3 

• 

io'n  ii  pF 

Common- mode  Impedance 

10  II  3 

• 

10"  fl  ||  pF 

OFFSET  VOLTAGE.  RTO^ 

Initial  at  25"C(4) 

±(0.02G 
+11 

±(0.04G 

+2) 

±(0.0  IG 
+1) 

±(0.020 

+2) 

mV 

vs  Temperature 

■ircio+ss'c 

(±0.001 5G 

(±0.003G 

±0.0005C  (+O.0OIG 

mV/X 

±Q.03GiJ 

±0.05G,) 

±0.0  IG,) 

±0.02G,) 

vs  Time 

(±0.001  G 
±0.0  IGi) 

* 

mV/mo 

vs  Supply 

(±0.002G 
±0.04Ci) 

mV/V 

vs  Gain  (5) 

With  trimming 

±1 

±2 

* 

* 

mV 

INPUT  BIAS  CURRENT 

Initial 

25T 

±15 

=50 

±5 

±20 

nA 

vs  Temperature 

-25"C  to  +8SX 

±0.3 

• 

nA/"C 

vs  Supply  Voltage 

±0.1 

nA/V 

INPUT  DIFFERENCE  CURRENT 

Initial 

25"C 

±15 

±50 

±5 

±20 

nA 

vs  Temperature 

-25"C  to  +8ST 

±0.5 

• 

nA/"C 

vs  Supply  Voltage 

±0.1 

nA/V 

INPUT  NOISE 

Voltage 

R  source  sj  Slcfl 

0.01Hz  to  10Hz 

G  =  1024 

1.4 

• 

uVp-p 

10Hz  to  1kHz 

1.0 

• 

iiVrmi 

Current 

0.01Hz  to  10Hz 

70 

* 

nA  p-p 

10Hz  to  IkHz 

20 

• 

nA  rms 

COMMON-MOOE  REJECTION 

DC.  Ikfl  Source  Imbalance 

0*1.2 

30 

90 

90 

100 

dB 

G  -  4  to  16 

90 

100 

100 

110 

dB 

G  ■  J2  io  1024 

100 

114 

no 

114 

dB 

60Hz.  Ikft  Source  Imbalance 

0*1,2 

80 

86 

• 

dB 

G  =4  to  16 

90 

96 

■ 

dB 

G  =  32  to  1024 

100 

106 

* 

dB 

DYNAMIC  RESPONSE 

±3dB  Response 

Small  Signal 

kHz 

G  =  1 

100 

kHz 

G  *  32  to  128 

40 

kHz 

G  =  256  to  1024 

10 

kHz 

t.\%  Response 

Small  Signal 

G  =  1 

40 

kHz 

G  =  32  to  128 

8 

kHz 

G  =  256  to  1024 

3 

kHz 

Slew  Rate 

G=  1 

0.2 

0.5 

- 

V/*s 

Settling  Time 

G=  128 

to  \% 

75 

Hi 

to  0.1% 

100 

US 

to  0.01% 

200 

Ml 

LOGIC  VOLTAGES 

"0"  Level! 6) 

0 

+0.4 

V 

T  Level(6l 

+2.4 

+5.0 

• 

V 

Absolute  Max 

No  damage 

+7 

• 

V 

ANALOG  SUPPLY 

Rated  Voltage 

±15 

tf« 

Voltage  Range.  Derated  Performance 

±8 

±18 

VDC 

Current,  quiescent 

±10 

±20 

* 

mA 

ELECTRICAL  SPECIFICATIONS  CONTINUED 

All  specifications  typical  ai  23"C  unless  otherwise  noted. 


PARAMETER 

Conditions 

3606A  0) 

3606B  (71 

Units 

MIN    |      TYP      |    MAX 

MIN     |      TYP     |     MAX 

Rated  Voltage 
Voltage  Range 
Current,  quiescent 
TEMPERATURE  RANGE 

+4.3 

+3 

10 

+5.5 

• 

. 

VDC 
VDC 

Specification 
PRICE 

-23 
-*0 

+85 
+100 

; 

. 

"C 

"C 

1-24 
25-99 
lOffs 

$78.00                S97.J6 
S60.00                S73.O0 
$51.50                $64.00 

$100.00              $125.00 
SSO.OO                $100.00 
$70.00                $87.30 

•Specifications  tame  as  3606A. 

I.  G  =  G,    Gi 

2  Nonlineariiy  is  the  maximum  peak  deviation  from  the  beat  siraightline  as  a 

percent  of  full  scale  peak-to-peak  output. 
3.  "RTO"  =  Referred  To  Output.  May  be  referred  to  input  by  dividing  by  gain  G 


4.  May  be  adjusted  to  zero. 

5.  Trimmed  according  to  Figure  8. 

6.  AH  digital  inputs  are  I  TTL  unit  load. 

7.  Specify  3606AG  or  3606BG  for  ceramic  package  and  3606AM  or  J606BM  for 
metal  package  -  sec  below. 


Pr.ce.  and  sp.clid.on,  „e  iobjeo.  to  orange  w.ibooi  nouee.  No  parent  nght,  are  g„med  ,o  an,  of  the  etreuit.  de»ertbed  herein. 
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"G"  PACKAGE 

44.45mm 

—    <I.75t     — 


MECHANICAL 


_L 


■M"  PACKAGE 

44.45mm 

fl.75-) 


NIJIIIIIIIIIIH-!- 

t      "Hr—  0.51mm   (0.02")  5.84mm 

4.32mm  (0.23") 

(0.1 71 

154mm 
(0.101 
Typ. 


T  -*i I    !—  154mm 


2286mm 

mm 
(0.M-) 


(0. 10*) 


29.21mm 
(LIST 


PINS:  Pin  material  and  plating  composition  conform  to  Method  2003 
(solderability)  of  Mtl-Sid-883  {except  paragraph  3.2).  CASE:  Ceramic 
MATING  CONNECTOR:  2302MC  -  5et  of  two  16pm  strips.  WEIGHT 
13  grams  (0.46  oz.). 


-  154mm   (0.10-) 


PINS:  Pin  material  and  plating  composition  conform  to  Method  2003 
isolderabiUty)  of  Mil-Std-883  (except  paragraph  3.2).  CASE'  Metal 
MATING  CONNECTOR:  2302MC  -  Set  of  two  16  pinstrips.  WEIGHT: 
13  grams  (0.46  ozj. 


PIN 
DESIGNATIONS 


PIN  NO.      DESIG. 


FUNCTION 


-V  -I5V  Analog  Supply 

-IN  Inverting  Input 

J  i  Output  of  Ai 

(None)  Optional  A*  Offset  Trim 

Xi  Summing  J  unction  of  A, 

(None)  Optional  A.  Offset  Trim 

F  Low  Pass  Filter  Pin 

J:  Input  to  Aj 

Ri  Output  Reference 

O  Output 

Si  Sense  G  =  I 

S;  Sense  G  =  4 

St  Sense  G  =  2 

R  Output  Reference 

GND  Analog  Common 

(None)  No  Internal  Connection 


PIN  NO.      DESIG. 

17  D„ 


FUNCTION 


Digital  Input.  LSB 
Di         Digital  Input,  next  LSB 

G  Latch 

t  Digital  Common 

D-  Digital  Input,  next  MSB 

Di  Digital  Input.  MSB 

+5  +5V  Digital  Supply 

(None)  No  Internal  Connection 

(None)  No  Internal  Connection 

Gain  Optional  External  Gain 

Gain  Optional  External  Gain 

(None)  Input  CMV 

+IN  N  on  inverting  Input 

+V  +I5V  Analog  Supply 

BALI  Optional  Input  Stage 

BAL/  offset  Null 


TYPICAL  PERFORMANCE  CURVES 


SMALL  SIGNAL 
FREQUENCY  RESPONSE 


G=1024 

1 

G=I2S 

\ 

I 

G=16 

A 

0-1 

\ 

\ 

10         100         Ik         10k        100k        IM 
FREQUENCY  (Hz) 


y 

3606A 

< 

^ 

36068 

All  specifications  typical  at  25°C  unless  otherwise  noted. 


COMMON-MODE  REJECTION 
VS  FREQUENCY 


G»32W  1024 

"■■■ ; "  < 

G-16 

G  =  l 

10              100              1                10k 

FREQUENCY  (Hz> 
OUTPUT  OFFSET  VOLTAGE  VS  GAIN 


I 
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L  After 

"\^ 
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J»„ 
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~\ 

60HzG  =  l 
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'-■ 

3.2              10              32 

!00 

SOURCE  RESISTANCE  IMBALANCE  (kfl) 


WARM-UP  RESPONSE 


Vr-G  ■  I024V/V 

Power 
turn-ori 

G  =  IV/V 

y     i 

64  256       1024 


OUTPUT  STAGE  GAIN  ERROR 
VS  OUTPUT  CURRENT 


^jr 

.r,.-j_ 

0 

2 

i 

1 

5             10 

SETTLING  TIME  VS  GAIN 


OUTPUT  CURRENT  (mA) 


OUTPUT  CURRENT(mA) 


1      2     4      8     16    32    64  128  256  512  1024 
GAIN(V/V) 


=  100k 

Vs. 

Rs  = 

ookn 

^^(Rs=0 

.  =  '■>    1 

16  64  256       1024 

GAINIV/V) 


OUTPUT  NOISE  VS  BANDWIDTH 

> 

3 

Z  10 
-2 

G  -  1024 

|TR*  =  IMfl 

r             R 

Rs  ■ 

Ri  =  0l 

*  lookn 

lOkfl^* 

STEP  RESPONSE 


Rl  =  2kfl 
C,  =  lOOOpF 

G  = 

■2S 

,  (000 

G;  =4  J 

G;=   1 

\ 

\ 

L 

\uT 

BANDWIDTH  (Hz) 


0      20  60  100  140 

TIME  («ec) 


INSTALLATION  AND 
OPERATING  INSTRUCTIONS 


POWER  SUPPLY  CONNECTIONS 


FIGURE  2.  Power  Supply  and  Ground  Connections 


Figure  2  shows  the  proper  analog  and  digital  power 
supply  connections.  The  analog  supplies  should  be 
decoupled  with  l^F  tantalum  and  lOOOpF  ceramic 
capacitors  as  close  to  the  amplifier  as  possible.  Because 
the  amplifier  is  direct-coupled  it  must  have  a  ground 
return  path  for  the  bias  currents  associated  with  the 
amplifier  inputs  at  pins  2  and  29.  If  the  ground  return 
path  is  not  inherent  in  the  signal  source  (floating  source)  it 
must  be  provided  externally.  The  ground  return 
resistance  (Rgr)  should  be  kept  as  low  as  practical.  An 
upper  limit  of  approximately  50Mfl  is  established  by  the 
input  bias  currents  of  the  amplifier  and  its  common- 
mode  voltage. 


SIGNAL  CONNECTIONS 


In  the  equation  shown  in  Figure  3,  Gi  is  the  input  stage 
gain  and  G2  is  the  output  stage  gain.  CMRR  is  the 
common-mode  rejection  ratio  [CMR  (in  dB)  =  20  log 
CMRR  (in  V/  V)].  Common-mode  voltage  shown  as  Ecm 
is  actually  the  average  of  the  two  voltages  appearing  at  the 
two  inputs  (pins  29  and  2)  with  respect  to  pin  15  (V,  and 
V;). 


GAIN  SETTING 

Gain  is  determined  by  a  4-bit  digital  word  applied  to  the 
input  Do  through  Dj  (see  Figure  1).  Pin  19  provides  a 
latch  function  for  the  inputs.  When  pin  19  is  a  logic  0, 
changes  on  the  Do  through  Dj  inputs  are  inhibited.  Pin  1 9 
should  be  at  +5V  if  the  latch  is  not  used. 
A  gain  state  truth  table  is  shown  in  Table  I.  Gains  are 
determined  by  the  resistor  networks  shown  in  Figure  1. 
For  the  state  Dj,  D2  =  0,  0,  the  input  stage  gain  is  a 
function  of  the  gain  setting  resistor  Ra  connected  between 
pins  26  and  27.  If  gains  of  1,  2  and  4  are  desired,  no 
connection  should  be  made  to  pins  26  and  27  and  the 
resistance  across  these  pins  should  be  kept  high  with 
respect  to  40kfl  f>  400Mfl). 

Gain  accuracy  is  established  by  laser-trimming  the  thin- 
film  resistor  networks  during  assembly.  No  external,  user 
trimming  is  required. 


OUTPUT  OFFSET 


FIGURE  3.  Basic  Signal  Connections 


FIGURE  4.  Output  Offsetting 


Basic  signal  connections  are  shown  in  Figure  3.  The 
connection  to  pin  I4completes  the  difference  amplifier  of 
Aj  (see  Figure  I).  The  3  to  8  jumper  connects  the  output 
stage.  The  pin  9  connection  provides  a  divide-by-two 
attenuator  for  the  A4  stage.  This  is  necessary  to  limit  the 
signal  on  the  output  stage  switches  to  maintain  signal 
linearity.  The  pin  1 1 . 1 2  and  1 3  connections  to  pin  1 0  close 
the  feedback  loop  around  A*. 


Output  offset  may  be  varied  by  either  of  two  methods 
shown  in  Figure  4.  Sources  at  pin  9  and  pin  14  apply 
voltages  to  the  noninverting  inputs  of  A4  and  A3 
respectively  (see  Figure  I).  Since  the  output  stage  gain 
occurs  after  these  points,  the  output  voltage  bias 
established  with  VR,  and  VR;  will  vary  with  the  output 
gain,  Gi.  Sources  connected  at  pins  9  and  14  must  have 
resistances  low  with  respect  to  lOkfl  in  order  not  to 
disturb  gain  accuracy  and  common-mode  rejection. 


Digital  Inputs 
(G,)            (G.) 

G, 

(Ai  and  A<) 

(Pins  2  &  29  to  3) 

G: 

(A.I 

(Pin  8  to  Pin  10) 

G,     G: 
(Rx,'»») 

G,  ■  G. 

(R.."#») 

D,      D; 

D,      D„ 

0        0 
0        0 
0        0 
0        0 

0        0 
0        1 

1  +  40k,R(j 

1 

4 
4 

1 

4 
4 

1(1  +  40k, Rr.) 
2(1  +40k,  Rr.) 
Ml  +40k/R„) 
4(1  +40k/Rr.) 

0        1 
0        1 
0        1 
0         1 

4 

1 

4 
4 

4 
8 
16 
16 

4 
8 
16 

16 

1        0 
1        0 
1        0 

1        0 

32 

i 

2 
4 
4 

32 
64 
128 
128 

32 
64 
128 
128 

1       1 
1      1 
1      1 
[       1 

0        0 

0  1 

1  0 

256 

2 
4 

4 

256 
512 
1024 
1024 

256 
512 
1024 
1024 

TABLE  I.  Gain  State  Truth  Table 
LOW  PASS  FILTER 


C, 

c 

"Si^A    r- 

— I 

— c 

0 

c 

*^fs^ 

1 

2*  *  5kfl  (d  +  330pF) 

FIGURE  5.  Low  Pass  Filter  Connections 

For  low  frequency  signals,  system  performance  may  be 
improved  by  reducing  noise  bandwidth  in  the  amplifier. 
This  may  be  accomplished  with  the  addition  of  one  or 
two  external  capacitors  as  shown  in  Figure  5.  C2  is 
connected  to  a  10k/  lOkattenuatorand  C,  is  connected  as 
a  feedback  element  across  A4  (see  Figures  1  and  5).  The 
transfer  function  is: 


--r — 


S(C:  1-330*  10"")  f  20*  10* 


ir.-JijL — I 

J  L         10  *  IO1  R,  SC,  +  R,  J 


The  first  term  is  a  first  order  filter.  The  second  term  is 
more  complex.  Rt  varies  with  the  output  stage  gain- 1.4k 
for  Gj  =  4  (see  Figure  1).  The  "1  +  ..."  nature  of  the 
transfer  function  prevents  a  true  first  order  filter  rolloff. 

For  most  applications,  the  first  order  low  pass  filter 
obtained  by  Cj  provides  sufficient  filtering.  The  value  of 


3553  „,  332, -L>^     fSK" 


'Rt.  connected  between 
pins  26  and  27. 


C;  required  for  a  desired  cutoff  frequency  (f2  in  Hz)  is 
obtained  by  the  equation  shown  in  Figure  5. 

LARGER  OUTPUT  CURRENT 

The  output  current  rating  of  the  3606  is  a  minimum  of 
±5mA.  The  linearity  of  the  gain  is  affected  by  output 
current.  See  TYPICAL  PERFORMANCE  CURVES. 
Optimum  linearity  is  achieved  with  I„  ^  1  mA.  I„  ^  5mA  is 
acceptable.  Above  5mA  tt  may  be  desirable  to  use  a 
power  or  current  booster  as  shown  in  Figure  6.  Burr- 
Brown's  3329  will  provide  ±100mA  output  while  Burr- 
Brown's  3553  will  supply  ±200mA.  When  either  booster 
is  placed  inside  the  feedback  loop  as  shown,  the  booster's 
offset  voltage  produces  no  significant  errors  since  it  is 
divided  by  the  open  loop  gain  of  the  output  stage. 

GUARD  DRIVE  CONNECTIONS 


FIGURE  6.  Output  Current  Booster 


FIGURE  7.  Guard  Drive  Connections 


Use  of  Che  guard  drive  connection  shown  in  Figure  7  can 
improve  system  common-mode  rejection  when  the 
distributed  capacitance  of  the  input  lines  is  significant. 
The  common-mode  voltage  which  appears  on  the  input 
lines  and  on  pins  29  and  2  is  computed  by  the  3606 
[(Vt  +  V2)/2]  and  appears  at  pin  28.  It  is  then  fed  back  to 
the  shield  so  that  the  voltage  across  the  distributed 
capacitances  is  minimized.  This  reduces  the  common- 
mode  current  and  improves  common-mode  rejection. 
The  operational  amplifier  in  the  voltage  follower 
configuration  is  used  to  supply  more  current  than  can  be 
obtained  from  the  20k  resistors  connected  internally  to 
pin  28  (see  Figure  1). 


OFFSET  TRIM 


Input  Stage  Tnm   f  R 


FIGURE  8.  Optional  Offset  Trim 

Offset  voltages  of  the  3606  are  reduced  by  laser-trimming 
during  assembly.  This  reduces  the  initial  offset  voltage 
and  the  offset  voltage  change  with  gain  change  to  levels 


that  are  acceptable  for  most  applications.  For  more 
critical  applications  the  offset  voltages  can  be  externally 
nulled  to  zero.  The  following  steps  should  be  followed 
(see  Figure  8). 

1.  Adjust  both  Rr  and  R:  to  mid  range 

2.  Set  the  gain  to  minimum  (IV/V) 

3.  Adjust  Ri  to  make  V0ut  equal  zero 

4.  Set  the  gain  to  maximum  (1024  V/V) 

5.  Adjust  Ri  to  make  Vout  equal  zero 

By  using  this  technique,  the  change  in  output  offset 
voltage  caused  by  a  gain  change  of  IV/V  to  1024V/V 
may  be  reduced  to,  typically  lmV  instead  of  lOmV  with 
no  external  trimming.  Trimming  may  cause  the  offset 
voltage  drift  vs  temperature  to  increase  slightly. 


APPLICATIONS 


A  typical  application  of  3606  in  a  microcomputer  based 
data  acquisition  system  is  shown  in  the  block  diagram 
below. 

The  purpose  of  this  system  is  to  be  able  to  acquire  data 
from  a  specific  analog  input  channel,  suitably  condition  it 
(amplify  it  and  convert  it  to  digital  form)  and  store  it  or 
transmit  it  for  further  processing. 
Initially  the  Microcomputer  loads  the  RAM  (random 
access  memory)  with  the  required  coding  for  various 
desired  gains  via  Data  Bus.  The  coding  associates  the 
gain  state  truth  table  for  3606  with  corresponding  address 
locations  in  the  computer  memory.  So  when  the 
computer  puts  out  an  instruction  to  multiplex  a  specific 
analog  input  channel  through  the  multiplexer  via  the 


Address  Bus,  the  RAM  also  receives  the  same  address 
information  and  puts  out  corresponding  gain  code  to  the 
PGIA  3606.  The  3606  amplifies  the  multiplexed  signal  by 
the  programmed  gain  value,  and  outputs  it  to  S/H 
(sample  and  hold).  The  S/H  holds  the  output  value  when 
it  receives  the  control  signal  from  the  computer  and  the 
A/D  converts  it  and  outputs  it  to  the  computer  via  the 
Data  Bus  under  computer  control. 
The  PGIA  3606  allows  the  system  user  to  modify  and 
reprogram  gain  values  for  different  analog  input 
channels  merely  by  changing  the  software  computer 
program.  Since  different  dedicated  instruments  are  not 
required  for  various  input  channels,  the  PGIA  also  saves 
space  and  overall  system  costs. 


USE  OF  3606  IN  DATA  ACQUISITION  SYSTEM 


Microcomputer 


Dan  Bus 
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Multiplexer 
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CMOS  ANALOG  MULTIPLEXERS 


FEATURES 

•  LOW  POWER  CONSUMPTION 

CMOS  analog  switches 
ISmW  it  100  kHz 

•  PROTECTS  SIGNAL  SOURCES 

Break-telore-make  switching 

•  HIGH  THROUGHPUT  RATE 

•  RELIABLE  MONOLITHIC  CONSTRUCTION 

DESCRIPTION 

The  MPC8S  is  a  single-ended  monolithic  8-channel 
analog  multiplexer  and  the  MPC4D  is  a  monolithic 
4-channel  differential  input  output  multiplexer.  The 
digital  and  analog  inputs  are  protected  from 
overvoltage  inputs  thai  exceed  either  power  supply. 
These  CMOS  devices  feature  self-contained  binary 
channel  address  decoding  and  are  compatible  with 
DTL.  TTl..  or  CMOS  input  levels.  Channel 
interaction  is  eliminated  during  overvoluge 
conditions  and  also  in  the  event  of  a  power  loss.  They 
are  packaged  ma  16-pin  DIP  and  dissipate  typically 
7.5mW. 
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DESCRIPTION 


The  MPC8S  is  a  single-ended  monoinhic  8-channel 
analog  multiplexer  and  the  MPC4D  is  a  monolithic 
differential  input  output  channel  analog  multiplexer 
constructed  with  failure-protected  CMOS  devices. 
Transfer  accuracies  of  better  than  0.0 1  Cr  can  be  achieved 
at  sampling  rates  up  to  200kHz  from  signal  sources  of  up 
to  ±10  volts  amplitude. 

These  DTL  TTL  CMOS  compatible  devices  feature 
self-contained  binary  channel  address  decoding.  An 
ENABLE  line  is  also  made  available  which  allows  the 
user  to  individually  enable  an  8-channel  group  (  MPC8S) 
or  a  4-channel  group  (MPC4D)  facilitating  channel 
expansion  in  either  single-mode  or  multitiered  matrix 
configurations. 


FUNCTIONAL  BLOCK  DIAGRAM  -  MPC4D 
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Digital  and  analog  inputs  are  failure  protected  from 
either  overvoltages  that  exceed  the  power  supplies  or 
from  the  loss  of  power. 

High  quality  processing  is  employed  to  produce  CMOS 
FET  analog  channel  switches  which'have  low  leakage 
current,  high  OFF  resistance,  low  feedthrough 
capacitance  and  fast  settling  time. 

These  devices  are  housed  incompact  16-pin  dual-in-line 
packages,  and  are  specified  for  operation  over  a  0"C  to 
+75°C  temperature  range.  They  are  pin  and  package 
compatible  with  the  508  509  series. 
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TRUTH  TABLE-  MPC8S 


"o      — 

i         la 

—     \ 

KN         

:        is 

—     A, 

*ur 

3               14 

—    CiNl) 

INI        

■>              13 

*Vsup 

S          11 

INS 

JNJ        

6             1, 

IMft 

IN4        

7             10 

IN7 

OUT      

I 

INS 

MPC8S  PIN  DIAGRAM 

M 


SPECIFICATIONS 


Typical  for  fallowing  ci 


ELECTRICAL 

MODELS 

MPC8S      |       MPC4D 

Units 

INPUT 

ANALOG  INPUT 

Voltage  Range 

=  13 

V 

'■.;■■  mum  Overvoltage 

+V  supply  »3J 

V 

■V  supply  -20 

Current  11  Maximum  Overvoltage 

per  channel'" 

til 

Number  01  Input  Channeli 

Single-ended 

1 

Differential 

ON  Cturacteniuci 

ON  Resistance  (R.») 

Typical 

13 

kfl 

Maximum 

IB 

kti 

Rim  Dnh  vi  Temperature 

{Q*C  to  +7J'C) 

0.2J 

=b.-c 

K,-  Mismatch 

Channel-lo-channel 

30               1              50 

fl 

Differential 

N.A             |              SO 

n 

Input  Leakage  1 1. ) 

0.1 

Input  Leakage  Drift 

See  Figure  9 

OFF  Characteristic! 

OFF  Refinance 

10" 

ii 

Output  Leakage 

(All  channels  disabled i 

0.2 

Input  Leakage1" 

0.02 

nA 

Leakage  Dnfl 

Sc*  Figure  9 

Output  Leakage  with  Input 

Overvoltage 

Of  *)JV 

nA 

of  -3JV 

' 

hA 

DIGITAL  INPUTS 

LogK-0-(Vi)",'J' 

•V  supply  a.  V,   <0.l  at  1  nA 

V 

Lagtc-riVv,  )"■-'' 

■iv  -....-.-  v  supply  al  1  nA 

V 

Channel  Select 

code  •  one  of            code  -  one  of 

Enable 

Logic  "0"  Howl  disables  all  channels 
Log*  -rihighlenables channel  select  to 

POWER  REQUIREMENTS 

Rated  Power  Supply  Voltages 

£11 

V 

Supply  Range 

■t-Supply 

*toio::o 

-Supply 

■  10  to -20 

Suppls  Drain 

At  1  MHr  Switching  Speed 

+4.-2 

mA 

AT  100  kHi  Switching  Speed 

-—      -          -0  5 

Typical  Power  Consumption 

DC  to  ID  Mil 

Ti 

mW 

OYNAMIC  CHARACTERISTICS 

Cam  Error  |20  Mil  load!  maximum 

001 

g 

CM""*'" 

O.O0S 

^  of  OFF 
channel  signal 

Settling  Time'" 

To=2mV  ao.oni 

5 

To  :20mV  ±(0  11X51 

Common-mode  Rejection  iminimumi 
Switching  Hme 
Turn  ON 

Hi  A             ,              120 

Jo- 

05 

bs 

Turn  OFF 

0.3 

Ml 

Recovery  Time  Irom  Inout  Overvoltage 

Pulse  of  )5V  for  100  uscc 

To  0.0 1T( 

150 

To  0  10^ 

13 

Ml 

OUTPUT 

Voltage  Range 

*I5 

V 

Capacitance  id  Ground 

2J              |              IT" 

Pf 

Capacitance  Mumaic.1 

K  A           |            G|0 

TEMPERATURE 

Specification 

Qto-i-75 

c 

Stonae 

-ftj  io  -150 

'C 

MPC40  AND  MPC8S 

16  Pin  Ceramic  Lead  Frame  top  view 

n    n D Q □ a_ 


□    □    □    a    d~ 


J   K..dMhi, 

>0.100")  10.018"!  t.0!mm  „,,„ 

MON -CUMULATIVE  10.04"] 


t. 


_'Wmm  I 

„6.350i^ml 

10.250";    ~   j 


Su° 


9.52™  ft 

7  Mmm       H 


1.  Total  power  dissipation  due  to  input 
overvoltage  current  flowing  in  the  input 
protection  circuitry  must  be  limited  to 
0.75  watt  for  both  (a)  normal  operation 
with  power  supplies  turned  on  or  (b) 
during  a  fault  condition  when  the 
supplies  are  shorted  to  ground. 

2.  Maximum  overvoltage  is  ±Vsupply  ±4 
volts  at  115  mA. 

3.  20  volt  peak-to-peak  1000  Hzsinewave; 
Rsoluce  =  lOOOH,  same  signal  on  all 
unused  channels. 

4.  For  20  volts  between  switched  channels. 
Rsmrncs  =  lOOOfl  See  Figure  5  for 
settling  time  vs.  source  impedance  (Rs). 

5.  From  each  side  of  MPC4D  to  ground. 

6.  Leakage  measurement  made  with  all 
OFF  channel  inputs  fed  in  parallel  to 
+20  volts. 
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DISCUSSION  OF  PERFORMANCE 
Static  Transfer  Accuracy 


The  static  or  DC  transfer  accuracy  of  transmitting  the 
multiplexer  input  voltage  to  the  output  depends  on  the 
channel  ON  resistance  (Ron),  the  load  impedance,  the 
source  impedance,  the  load  bias  current  and  the 
multiplexer  leakage  current. 

SINGLE-END  E  D  MULTIPLEXER  STATIC  ACCURACY 
The  major  contributors  to  static  transfer  accuracy  for 
single-ended  multiplexers  are: 

Source  resistance  loading  error 

Multiplexer  ON  resistance  error 

DC  offset  error  caused  by  both  load  bias  current  and 

multiplexer  leakage  current. 
Resistive  Loading  Errors 

The  source  and  load  impedances  will  determine  the  input 
resistive  loading  errors.  To  minimize  these  errors: 

•  Keep  loading  impedance  as  high  as  possible.  This  mini- 
mizes the  resistive  loading  effects  of  tne  source  resis- 
tance and  multiplexer  ON  resistance.  As  a  guideline. 
load  impedances  of  10*  ohms  or  greater  will  keep 
resistive  loading  errors  to  0.002%  or  less  for  1000  ohm 
source  impedances.  A  10*  ohm  load  impedance  will 
increase  source  loading  error  to  0.2%  or  more. 

*  Use  sources  with  impedances  as  low  as  possible.  A  1000 
ohm  source  resistance  will  present  less  than  O.OO  I  % 
loading  error  and  10.000  ohm  source  resistance  will 
increase  source  loading  error  to  0.01%  with  a  10"  ohm 
toad  impedance. 

Input  resistive  loading  errors  are  determined   by  the 
following  relationship:  (see  Figure  I) 
Source  and  Multiplexer  Resistive  Loading  Error 

s<»s-W-rsXn°V'°°% 

where  Re      ■   wutce  refinance 


f*QN  s   multiplexer  ON  refinance 

INPUT  OFFSET  VOLTAGE 

Bias  current  generates  an  input  OFFSET  voltage  as 
result  of  the  I R  drop  across  the  multiplexer  ON  resistance 
and  source  resistance.  A  load  bias  current  of  10 
nanoamperes  will  generate  an  offset  voltage  of  20^Vifa 
1000  ohm  source  is  used,  and  200uV  if  a  10.000  ohm 
source  is  used.  In  general,  for  the  MPCSS.  [he  OFFSET 
voltage  at  the  output  is  determined  by: 

VOFFSET  =  ('h  *  'l'  <RON  *  RS> 

where  1B  ■  Bia*  current  of  3 evict  multiplexer  |i  drivmj 

1.    ■  Multiplexer  leakage  current 

RON  ■  Multiplexer  ON  refinance 

KSOURCEJ  Source  reftftance 

DIFFERENTIAL  MULTIPLEXER  STATIC  ACCURACY 

Static  accuracy  errors  in  a  differential  multiplexer  are 
difficult  to  control,  especially  when  it  is  used  for 
multiplexing  low-level  signals  with  full  scale  ranges  of  10 
to  100  millivolts. 

The  matching  properties  of  the  multiplexer,  source  and 
output  load  play  a  very  important  part  in  determining  the 
transfer    accuracy    of    the    multiplexer.    The    source 


impedance  unbalance,  common-mode  impedance,  load 
bias  current  mismatch,  load  differential  impedance 
mismatch,  and  common-mode  impedance  of  the  load  all 
contribute  errors  to  the  multiplexer.  The  multiplexer  ON 
resistance  mismatch,  leakage  current  mismatch  and  ON 
resistance  also  contribute  to  differential  errors. 
The  effects  of  these  errors  can  be  minimized  by  following 
the  general  guidelines  described  in  this  section,  especially 
for  low  level  multiplexing  applications.  Refer  to  Figure  2. 
L0A0  (OUTPUT  DEVICE)  CHARACTERISTICS 

•  Use  devices  with  very  low  bias  current.  Generaly.  FET 
input  amplifiers  should  be  used  for  low  level  signals  less 
than  50mV  RSR.  Low  bias  current  bipolar  input 
amplifiers  are  acceptable  for  signal  ranges  higher  than 
50mV  FSR.  Bias  current  matching  will  determine  the 
input  offset. 

•  The  system  DC  common-mode  rejection  (CMR)  can 
never  be  better  than  the  combined  CMR  of  the 
multiplexer  and  driven  load.  System  CMR  will  be  less 
than  the  device  which  has  the  lower  CMR  figure. 

•  Load  impedances,  differential  and  common-mode. 
should  be  10'"  ohms  or  higher. 

SOURCE  CHARACTERISTICS 

•  The  source  impedance  unbalance  will  produce  offset, 
common-mode  and  channel-to-channel  gain-scatter 
errors.  Use  sources  which  do  not  have  large  impedance 
unbalances  if  at  all  possible. 

•  Keep  source  impedances  as  low  as  possible  to  minimize 
resistive  loading  errors. 

•  Minimize  ground  loops.  If  signal  lines  are  shielded. 
ground  ail  shields  to  a  common  point  at  the  system 
analog  common. 

If  the  M  PC4D  is  used  for  multiplexing  high-level  signals 
of  ±1  volt  to  ±\0  volts  full  scale  ranges,  the  foregoing 
precautions  should  still  be  taken,  but  the  parameters  are 
not  as  critical  as  for  low-level  signal  applications. 


FIGURE  I .  MPCSS  Static  Accuracy  Equivalent  Ore 


\  "  Ca/2\       >  Z  load 

TTI    T     '"  *     i 


FIGURE  2:  MPC4D  Sialic  Accuracy  Equivalent  Circun. 
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SETTLING  TIME 


The  gate-lo-source  and  gate-to-drain  capacitance  of  the 

CMOS  FET  switches,  the  RC  time  constants  of  the 

source  and  the  load  deiermtne  the  settling  time  of  the 

multiplexer. 

Governed  by  the  charge  transfer  relation  i  =  C  — — .  the 

charge  currents  transferred  toboih  load  and  source  by  the 
analog  switches  are  determined  by  the  amplitude  and  rise 
time  of  the  signal  driving  the  CMOS  FET  switches  and 
the  gat e-to-d rain  and  gate-to-source  junction 
capacitances  as  shown  in  Figure  3  and  4.  Using  this 
relationship,  one  can  see  that  the  amplitude  of  the 
switching  transients  seen  at  the  source  and  load  decrease 
proportionally  as  the  capacitance  of  the  load  and  source 
increase.  The  tradeoff  for  reduced  switching  transient 
amplitude  is  increased  settling  time.  If  effect,  the 
amplitude  of  the  transients  seen  at  the  source  and  load 


JV. 


load 


dV 


-  of  ihe  CMOS  PUT  switches 
C  *  load  Of  source  capacitance 

The  source  must  then  redistribute  this  charge,  and  the 
effect  of  source  resistance  on  settling  time  is  shown  in 
Figure  5.  This  graph  shows  the  settling  time  for  a  20  volt 
step  change  on  the  input.  The  settling  time  for  smaller 
step  changes  on  the  input  will  be  less  than  that  shown  in 
Figure  5. 

SWITCHING  TIME 

This  is  the  time  required  for  the  CMOS  FET  to  turn  ON 
after  a  new  digital  code  has  been  applied  to  the  Channel 
Address  inputs.  It  is  measured  from  the  50  percent  point 
of  the  address  input  signal  to  the  90  percent  point  of  the 
analog  signal  seen  at  the  output  for  a  10  volt  signal  change 
between  channels. 

CROSSTALK 

Crosstalk  is  the  amount  of  signal  feedthrough  from  the 
three  (MPC4D)  or  seven  (MPC8S)  OFF  channels 
appearing  at  the  multiplexer  output.  Crosstalk  is  caused 
by  the  voltage  divider  effect  of  the  OFF  channel  OFF 
resistance  and  junction  capacitances  in  series  with  the 
Run  and  Rmu'RCE  impedances  of  the  ON  channel. 
Crosstalk  ts  measured  with  a  20  volt  pk-pk  1000  Hertz 
sine  wave  applied  to  all  OFF  channels.  The  crosstalk  for 
these  multiplexers  is  shown  in  Figure  6. 

COMMON-MODE  REJECTION  (MPC40  ONLY) 
The  matching  properties  of  the  load,  multiplexer  and 
source  affect  the  common-mode  rejection  (CMR) 
capability  of  a  differentially  multiplexed  system.  CMR  is 
the  ability  of  the  multiplexer  and  input  amplifier  to  reject 
signals  that  are  common  to  both  inputs,  and  to  pass  on 
only  the  signal  difference  to  the  output.  Fori  he  MPC4D. 
protection  is  provided  for  common-mode  signals  ot  r20 
volts  above  the  power  supply  voltages  with  no  damage  to 
the  analog  switches. 


MPCSS  CHA 


FIGURE  3:  Settling  Time  Effect!  -  MPCSS 


,—**— -o-4- 4M- 


FIGURE  4:  Settling  &  Common-Mode  Effect!  -  MPC4D.       = 

The  CMR  of  the  MPC4D  and  Burr-Brown's  model  3660 
instrumentation  .Amplifier  is  !20dB  at  DC  to  I  Hz  with  a 
6  dB  octave  rolloff  to  70  dB  at  1000  Hz.  This 
measurement  of  CMR  is  shown  in  Figure  8  and  is  made 
with  a  Burr-Brown  model  3660  Instrumentation 
Amplifier  connected  for  a  gain  of  1000  and  with  source 
unbalance  of  1  Itfl  and  no  unbalance. 
Factors  which  will  degrade  multiplexer  and  system  DC 
CMR  are: 

•  Amplifier    bias   current   and   differential  impedance 
mismatch 

•  Load  impedance  mismatch 

•  Multiplexer  impedance  and  leakage  current  mismatch 

•  Load  and  source  common-mode  impedance 

AC  CMR  rolloff  is  determined  by  the  amount  of 
common-mode  capacitances  (absolute  and'  mismatch)" 
from  each  signal  line  to  ground.  Larger  capacitances  will 
limit  CMR  at  higher  frequencies;  thus,  if  good  CMR  is 
desired  at  higher  frequencies,  the  common-mode 
capacitances  and  unbalance  of  signal  lines  and 
multiplexer  to  amplifier  wiring  must  be  minimized.  Use 
twisted-shielded  pair  signal  lines  wherever  possible. 
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TYPICAL  PERFORMANCE  CURVES 
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FIGURE  6.  Crosstalk  vs 
■signal  frequency. 


FIGURE  9.  Leakage  current 
vi  temperature. 
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FIGURE  5.  Settling  time  vs source 
resistance  for  20  volt  step  change. 
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FIGURE  7.  CMR  vs  frequency  far 
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FIGURE  10.  Access  time  v! 

logic  level  (high). 


FIGURE  11.  Normalized  "ON"  resistance  vs  supply  voltage. 
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OPERATION  &  INSTALLATION  INSTRUCTIONS 


The  ENABLE  input,  pin  2.  is  included  for  expansion  of 
the  number  of  channels  on  a  single  node  as  illustrated  in 
Figure  12.  With  ENABLE  line  at  a  logic  I.  the  channel  is 
selected  by  the  2  bit  ( M PC4D)  or  3  bit  ( M  PC8S) Channel 
Select  Address  (shown  in  the  Truth  Tables  on  page  9-4)  If 
ENABLE  is  at  logic  0,  all  channels  are  turned  OFF,  even 
if  the  Channel  Address  lines  are  active.  If  the  ENABLE 
tine  is  not  to  be  used,  simply  tie  it  to  +V  supply. 
If  the +  15  volt  and  or-15  volt  supply  voltage  is  absent  or 
shorted  lo  'ground,  the  MPCJD  and  MPC8S  ' 
multiplexers  will  nol  be  damaged;  however,  some  signal 
feedthrough  to  the  output  will  occur.  Total  package 
power  dissipation  must  not  be  exceeded  (see  Footnote  I. 
page  9-5). 

For  .best  settling  speed,  the  input  wiring  and 
interconnections  between  multiplexer  output  and  driven 
dei ices  should  be  kept  as  short  as  possible.  When  driving 
the  digital  inputs  from  TIL,  open  collector  output  with 
pull-up  resistors  are  recommended.  See  Figure  10  (access 
time). 

To  preserve  common-mode  rejection  of  the  MPC4D,  use 
twisted-shielded  pair  wire  lor  signal  lines,  and  inter-tier 
connections  and  or  multiplexer  output  lines.  This  will 
help  common-mode  capacitance  balance  and  reduce 
stray  signal  pickup.  II  shields  are  used,  all  shields  should 
be  connected  as  closely  as  possible  to  system  analog 
common  or  to  the  common-mode  guard  driver. 

CHANNEL  EXPANSION 

SINGLE-ENDED  MULTIPLEXER  (MPC8S) 

Up  lo  32  channels  (4  multiplexers)  can  be  connected  to  a 
single  node,  or  up  to  64  channels  using  9  MPCXS 
multiplexers  on  a  two-tiered  structure  as  show  n  in  Figure 
12  and  13. 

DIFFERENTIAL  MULTIPLEXER  (MPC40) 
Single  or   multi-tiered   configurations   can    be   used    to 
expand  multiplexer  channel  capacity  up  to  32  channels 
using  a  32  x  I  or  16 channels  usinga4  x  4 configuration. 
SINGLE  NODE  EXPANSION 

The  32  x  I  configuration  is  simply  eight  MPC4D  units 
tied  to  a  single  node.  Programming  is  accomplished  wuh 
a  5  bit  counter.  usingthe2LSB's  of  the  counter  to  control 
Channel  Address  inputs  An  and  Ai  and  the  3  MSB's  of  the 
counter  to  drive  a  I  of  8  decoder.  The  I  of  8  decoder  then 
is  used  to  drive  the  ENABLE  inputs  (pin  2)  of  the 
MPC4D  multiplexers. 

TWO  TIER  EXPANSION 

Using  a4x4  2-tier  structure  for  expansion  to  1 6  channels, 
the  programming  is  simplified  A  4-bit  counter  output 
does  not  require  a  1  of  8  decoder.  The  2  LSB's  of  the 
counter  drive  the  A>,  and  Ai  inputs  of  the  lour  first  tier 
multiplexers  and  the  2  MSB's  of  the  counter  are  applied 
to  the  An  and  Ar  inputs  of  the  second  tier  multiplexer. 


Single  vs.  Multi-Tiered  Channel  Expansion 
In  addition  to  reducing  programming  complexity,  iwo- 
lier  configu  ration  offers  the  added  advantages  over  single 
node  expansion  of  reduced  OFF  channel  curreni  leakage 
(reduced  OFFSET),  better  CMR,  and  a  more  reliable 
configuration  if  a  channel  should  fail  in  the  ON  condition 
(short).  Should  a  channel  fail  ON  in  the  single  node 
configuration,  data  cannot  be  laken  from  any  channel, 
where  as  only  one  channel  group  is  failed  (4  or  8)  in  the 
multi-tiered  configuration. 


FIGURE  1 2.  32  Channel.  Single-Tier  E\pansi 
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FIGURE  13.  Channel  Expansion  Up  to  b4  Channels  Using 
hXS  Two-Tiered  Expansion. 
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semiconductoi 


CONCORD  , 

COMPUTER  COMPONENT! 


1973  S.  State  Coiiege 
Anaheim,  Ca  92205 


FEATURES 


•  Microprocessor  bus-oriented 

•  TIME  MONTH         DATE 


MSM5832  MICROPROCESsunnLML-iiMc 
CLOCK/CALENDAR 

GENERAL  DESCRIPTION 

The  MSM5632  is  a  monolithic,  metal-gate  CMOS  integrated 
circuit  thai  (unctions  as  a  real  time  clock /calendar  for  use  in 
bus-oriented  microprocessor  applications.  The  on-cnip  32.758 
Hi  crystal  controlled  oscillator  time  base  is  counted  down  to 
provide  addressable  4-blt  I/O  data  of  SECONDS.  MINUTES. 
HOURS,  DAY-OF-WEEK,  OATE.  MONTH,  and  YEAR.  Data  ac- 
cess is  controlled  by  4-bit  address.  chip  select,  read,  write  and 
hold  inouts.  Other  functions  include  1 2H 1 24H  format  selection. 
leap  year  identification  and  manual  1 30  second  correction. 
The  MSM5S32  normally  operates  from  a  5  volt  :  5%  supply. 
Battery  oacK-up  operation  down  to  2.2  volts  allows  continuation 
of  time  keeping  when  main  power  is  off.  One  test  input  facili- 
tates rapid  testing  of  the  time  keeping  operations.  The  MSM5S32 
a  offered  in  an  tfl-lead  dual-in-line  plastic  <RS  suffix)  package. 


YEAR 


DAY  OF  WEEK 


23:59:59  12  -        31         -        99        - 

-  4-BIT  DATA  BUS 

•  4-81T  ADDRESS 

•  Read.  Write.  Hold.  Chip  select  Inputs 

•  Interrupt  signal  outputs—  1 024.  1 .  1  /60.  1  /  3600  Hz 

•  32.769  KHz  crystal  controlled  operation 

•  Leap  year  register  Bit 

■  12  or  24  hour  formal 

■  -  30  second  error  correction 

•  Single  5  volt  power  supply 

•  Back-up  cattery  operation  to  vcc  =  2.2  V 

■  Low  Power  Dissipation 


•  Hign  Density  300  mil  18-Pin  Package 


FUNCTIONAL  BLOCK  DIAGRAM 


PIN  CONFIGURATION 
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A.o  to  As:  Address  Inputs 

WRITE:  Write  Enable 

READ:  Read  Enable 

HOLD:  Count  Hold  Enable 

CS:  Chip  Select 

Do  to  O.r  Data  Input/Output 

TEST:  Test  Input 

-30  AOJ:  ±  30  Second 
Correction  Input 

XT  &  XT:  xtal  oscillator 

connections 

Vcc:  +  5  V  Supply 
GND:  Ground 
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FUNCTION  TABLE 

FIGURE  1 

ADDRESS  INPUTS 

INTERNAL 
COUNTER 

DATA  I/O 

DATA 
LIMITS 

NOTES 

A*      At       At      Aa 

Do     Di     Dj     Da 

0         0         0        0 

S1 

.... 

0-9 

St  or  Sto  are  reset  to  zero  irrespective  ot  input 
data  Oo— 03  when  write  instruction  is  executed 
with  address  selection 

10        0         0 

S10 

0-5 

0         10         0 

Ml  1 

.... 

0-9 

110        0 

mho 

0-5 

0         0         10 

H  1 

.... 

0-9 

10         10 

H  10 

•      "      t      t 

0~l/ 

Da  =  "1"  for  PM        D3="1"  for  24  hour  format 
02  =  "a"  for  AM        D3="0"  for  12  hour  format 

0         110 

W 

.       .      . 

0-6 

1110 

D1 

.... 

0-9 

0         0        0         1 

010 

•       •      t 

0-3 

Da  ="1"  for  29  days  in  month  2                      - 
Da  ="0"  for  28  days  in  month  2 

10         0         1 

M0  1 

.... 

0-9 

0         10         1 

MO  10 

•o~  1 

110        1 

Y1 

.... 

0-9 

0        0         11 

Y  10 

.... 

0-9 

(11  *  data  valid  as  "0"  or 

"I" 

siank  don  not  exist  (unrecognized  during  a  writ*  and  h«4d  at  "0"  during  a  r«ad) 
tdaUDiausMlof  AM/PM.  12/24  HOUR  and  leap  year 
(2)  If  D2  previously  sat  to  "1  ".  upon  completion  ot  montn  2  day  29.  D:  will  M  internally  reset  to    0" 


TYPICAL  CHARACTERISTICS-Oscillator  Frequency  Deviations 


Frequency  Deviation 
vs  Temperature 


Frequency  Deviation 
vs  Supply  Voltage 


Ta  =  2S'C 

VCC  =  3V:T  =  10000000 
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FIGURE  2 


FIGURE  3 


ABSOLUTE  MAXIMUM  RATINGS 

Rating 

Symbol 

Value 

Unit 

Supply  Voltage 

Vcc 

-0.3  <\.  7.0 

V 

Input  Voltage 

VlN 

-0.3  *  Vcc  +0.3 

V 

Data  I/O  Voltage 

Vd 

-0.3  ■*.  Vcc  +0.3 

V 

Storage  Temperature 

T«„ 

-55  --  150 

'C 

Note:  Stresses  above  those  listed  under 
ABSOLUTE  MAXIMUM  RATINGS  may 
cause  permanent  aamage  10  me  device. 
This  is  a  stress  rating  only  and  functional 
operation  oi  the  device  at  these  or  at  any 
or  her  condition  above  those  indicated  in 
Che  operational  sections  of  this  specifica- 
tion is  not  implied.  Exposure  to  absolute 
maximum  rating  conditions  (or  extended 
periods  may  affect  device  reliability. 


OPERATING  CONDITIONS 


Parameter 

Symbol 

Mln. 

Typ. 

Mai. 

Unit 

Conditions 

Supply  Voltage 

VCC 

4.75 

5 

525 

V 

5V  ±  5% 

Standby  Supply  Voltage 

Vccs 

2.2 

5 

7 

V 

Input  Signal  Level 

Vm 

3.6 

5 

Vcc 

V 

Vcc  =  5V  *  5% 

vs. 

-0.3 

0. 

0.8 

V 

Respect  to  Gnd 

Crystal  Oscillator  Frea. 

Kxt) 

32.768 

KHz 

Operating  Temperature 

Ta 

-30 

+  85 

"C 

DC  CHARACTERISTICS 

(Vcc  =  5V  ±  5%;  Ta  =  -30  to  -t-85°C.  unless  otherwise  noted) 


Parameter 

Symbol 

Mln. 

Typ. 

Max. 

Unit 

Conditions 

Input  Current 

ITH 

10 

25 

50 

»<A 

Vim  =  5V 

0) 

IlL 

-1                        1 

>* 

Vim  =  0V 

Data  I/O  Leakage  Current 

1LD 

-1                        1 

pA 

Vi/o  =  0  to  Vcc,  CS  =  "0" 

Output  Low  Voltage 

Vol 

0.4 

V 

lo  ■  1.6  ma.  CS  =  "I".  READ  =  "I" 

Output  Low  Current 

lot 

1.6 

mA 

Vo  =  0.4V,  CS  =  -1",  READ  =  'I" 

Operating  Supply  Current 

Ices 

30 

HA 

Vcc  =  3V.  Ta  =  25°C 

Ice 

500 

pA 

Vcc  =  5V.  Ta  =  25°C 

(1)  XT.  XT  and  0o~D3  excluded 

AC  CHARACTERISTICS 

CAPACITANCE 

Ta  =  258C,  f  =  1  MHI 


Parameter 

Symbol 

Mln.       Typ.       Ma*. 

Unit 

Input/Output  Capacitance 

Ci/o 

8 

pF 

Input  Capacitance 

Cm 

5 

pF 

Nosk  This  parameter  is  periodically  sampled  and  not  100%  tested. 


%, 


READ  CYCLE 

(Vcc  =  5V  ±  5%;  Ta  =  25°C) 


Parameter 

Symbol 

Mln. 

Typ. 

Max. 

Unit 

HOLD  Set-up  Time 

tHS 

150 

•8 

HOLD  Hold  Time 

tHH 

0 

•3 

HOLD  Purse  Widtn 

tHW 

1 

SEC 

READ  Hold  Time 

tRH 

0 

•a 

READ  Access  Time 

tlw 

6 

•S 

READ  CYCLE 


JC 


Ja 


J- 


Id 


/         DATA  IN 


M 


HrGH  IMPEDANCE  /  0*TA  INVALID 

DATA  VALID 

:  1 .  A  R«aD  occur*  during  the  overlap  ol  a  high  CS  and  a  high  READ 

2.  Output  Load:  1  TTL  Gate,  CL  =  SO  pt  and  Rl  =  <7  KQ 

3.  CS  may  be  a  permanent  "1",  or  may  be  coincident  with  HOLD  puiae 


WRITE  CYCLE 

(Vcc=  SVs  5%:Ta  =  2S°C) 

Parameter 

Symbol 

Mln.       Typ.       Max. 

Unit 

HOLD  Set-up  Time 

tHS 

150 

MS 

HOLD  Hold  Time 

tHH 

0 

pS 

HOLD  Pulse  Width 

tHW 

1 

SEC 

ADDRESS  Pulse  Width 

Uw 

1.7 

f& 

DATA  Pulse  Width 

tOW 

1.7 

■8 

DATA  Set-up  Time 

tos 

0.5 

pS 

DATA  Hold  Time 

tDH 

0.2 

MS 

WRITE  Pulse  Width 

tWWr 

1.0 

«S 

WR/TE  C/CLE 


jT" 


i  1 .  A  WRITE  occura  during  me  overlap  ot  a  high  CS.  a  high  HOLD  and  a  hign  WRITE 
2.  CS  may  M  a  permanent  "1".  or  may  be  coincident  with  HOLD  pulse 


FIGURE  4 


if 


\! 


HIGH  IMPEDANCE 


FIGURE  5 
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FUNCTIONAL  DESCRIPTION 

A  Clock  diagram  oi  the  MS  M  5832  micro  processor  real- time 
clocK/ calendar  and  a  pac«aqe  connection  diagram  are  snown 
on  (fie  first  cage  Figure  9  illustrates  a  method  of  Interfacing 
between  the  c  toe  k/ calendar  circuit  and  a  micro  processor- 
Figures  9. 1 0  and  1 1  illustrate  alternative  standby  power  supply 
circuits.  A  function  table  listing  relationships  between  address 
inputs,  data  input/output  and  internal  counter  selection  is 
shown  in  Figure  t .  Unless  otherwise  indicated,  the  following 
descnpfions  are  based  on  the  dock  diagram. 

32.7M  K  Ha  OSCILLATOR  (pm.  16  and  17):  An  internal  invert- 
ing amplifier  with  feedback  resistor.  RfB,  is  connected  with  a 
crystal  and  two  capacitors  as  shown  in  Figun  6  to  form  a  stable, 
accurate  oscillator— which  serves  as  the  precision  time  base  of 
the  circuit  Capacitors  CI  and  C2  in  series  provide  the  parallel 
load  capacitance  required  for  precise  tuning  of  the  quartz  crys- 
tal. Typical  oscillator  performance  as  a  lunction  ol  ambient 
temperature  and  supply  voltage  is  shown  in  Figures  2  and  3 
respectively. 


As  —  As.  (pins  4  —  7):  Address  inputs,  used  to  select  internal 
counters  tor  read/wnte  operations  (see  function  table— Figure 
1).  A  "1"  is  defined  as  woe.  a    0"  Is  GND.  Pull-down  to  GND 
is  provided  Dy  internal  resistors. 

Do  —  Oi  (pins  9  -  12):  Data  Inputs/  Outputs,  two-way  bus  lines 
controlled  by  READ  and  WRITE  inputs.  As  snown  in  Figure  7 
external  pull-up  resistors  ot  4.7K  or  higher  are  required  by  the 
open -drain  N-ctiannel  MOS  outputs.  03  is  the  MS8.  Do  is  the 
LSB. 

TEST  (pin  14);  Normally  this  input  is  unconnected— pull-down 
to  GND  is  provided  by  an  internal  resistor— or  connected  to 
GND.  With  CS  at  vcc.  pulses  to  VCC  on  the  TEST  input  will 
directly  ctocx  the  Si .  MM  0.  W.  D1  and  Yl  counters,  depending 
on  which  counter  is  addressed  (W  and  Dl  are  selected  by  Oi 
address  in  this  mode  only).  Roll-over  to  next  counter  is  enabled 
in  this  mode. 


c 


OSCILLATOR 
CIRCUIT 


FIGURE  6 


DATA  I/O 
CIRCUIT 


FIGURE  7 


eS^ 


Ci  =  Ci  *  <5  -  30  of 


CWt»  SELECT  (pki  a):  Connecting  CS  input  to  VCC  e 
inputs  and  outputs.  Unconnected— pull-down  to  GNO  is  pro- 
vided by  an  internal  resistor— or  connecting  CS  to  GNO  will  dis- 
able HOLD.  WRITE.  READ.  1 30  ADJ.  O0—D3,  Ao—03  and 
TEST. 

As  snown  in  Figure  9  CS  can  be  used  to  detect  system  power 
failure  by  connecting  system  power  ( +■  5V)  to  CS.  so  that  wnen 
system  power  is  on,  all  inputs  and  outputs  will  be  enabled,  and 
when  system  power  is  oft.  all  inputs  and  outputs  will  be  disabled. 
The  threshold  voltage  ol  CS  is  higher  than  ail  other  inputs  to 
insure  correct  operation  of  this  function. 

HOLD  (pM  1 81:  Switching  this  input  to  VCC  inhibits  the  internal 
i  hi  ciock  to  the  S1  counter.  After  the  specified  HOLD  set-up 
time  (1 50  |is).  all  counters  will  be  m  a  static  state,  thus  allowing 
error-free  read  or  wnte  operations.  So  long  as  the  HOLD  pulse 
width  is  less  than  1  second,  accuracy  ol  the  real  time  will  be 
undisturbed.  Pull-down  to  GND  is  provided  by  an  inlernal 
resistor 

READ  (pin  2):  Reed  function  aa  shown  in  Figure  4  is  enabled 
when  READ  is  switched  to  vcc.  Pull-down  to  GND  is  provided 
by  an  internal  resistor. 

WRITE  (pin  2):  Wnte  function  as  shown  in  figure  5  is  enabled 
when  WRITE  is  switched  to  vcc.  Pull-down  to  GNO  is  provided 
by  an  internal  resistor. 

■  30  »DJ  (Ptn  15):  Momentarily  connecting  this  input  to  Vcc 
(>31.25  ma)  will  reset  seconds  (S1 .  S10  counters  and  2"  -2" 
frequency  dividers)  to  00:  >'  seconds  were  30  or  more,  one 
minute  is  added  to  the  minutes  (Ml  1  counter)  and  if  seconds 
were  lees  than  30.  the  minutes  are  unchanged.  Pull-down  to 
GND  is  provided  by  an  internal  resistor. 


REFERENCE  SIGNAL  OUTPUT 

Reference  signals  are  available  as  outputs  on  Oo  —03  if  CS. 
READ  and  Ao  —  A3  are  at  Vcc.  Refer  to  Figunt  a  for  specifics. 
As  shown  in  Figum  9  these  signals  may  be  used  to  generate 
interrupts  for  the  microprocessor 


REFERENCE  SIGNAL 
OUTPUTS  FIGURE  8 


CONDITIONS 

OUTPUT 

REFERENCE 

FREQUENCY 

PULSE 
WIDTH 

HOLD   =   L 

D0(1) 

1024  Hz 

duty  50% 

READ  •  H 

Di 

1  Hz 

122.1  lis 

CS.  =  H 

D3 

1/60  Hz 

122.1  jis 

A0  -  A3  =  H 

03 

1    36CO  Hz 

122.1  us 

(1)  1024  Hz  signal  at  Do  not  dependent  on  HOLD  input  level 


TYPICAL  APPLICATION -Use  with 
Programmable  Peripheral  Interface  (PPI) 


FIGURE  9 


-p 
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TYPICAL  APPLICATIONS-Alternative  Standby  Power 
Supply  Circuits 

FIGURE  10  FIGURE  11 
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PARTS  LIST 

SPECIFICATIONS 

OUTLINE    AND    MOUMTIIW 

aENEIUL    USER    INFORMATION 


MODEL  HTAA-I6W 


EDITION  NO.  2 


AC.  INPUT 

ac.  OUTPUT 

LINE  REGULATION 
LOAD  REGULATION 
OUTPUT    RIPPLE 


IIS/230VAC±lO%47-440HZ  (DERATE    OUTPUT    CURRENT 

10%    FOR    SOHZ    OPERATION) 

SEE    OUTPUT    RATINQ    CHART.    ADJUSTMENT     RAN0E.±9% 


AC  CONNECTION    TABLE 


FOR  USE   AT 


±.05%  FOR  A  10%  LINE  CHANGE. 
±.03  %  FOR  A  50  %  LOAD  CHANGE. 
ZT013V   UNIT' 5.0m*.  PK-PK     maximum. 


APPLY  AC  AT 


FUSE   NPUT  AT 


SHORT     CIRCUIT  ( 

OVERLOAD    PROTECTION      AUTOMATIC     CURRENT    LIMIT  /  FOLDBACK. 


TEMPERATURE     RATING 


lg3,  2 


iii- 


2tj3 


OUTPUT    RATING     CHART 


0*  T0  50-C     FULL    RATED,  DERATE      LINEARLY    TO    40% 

AT    70*C. 

±.03%/  "C  MAXIMUM    .010%  /  *C  TYPICAL. 

SV.  UNITS'  45  %,  \Zt  15V.  UNITS'  35  %  , 

PER    ML-STD-8I0C;  METHOD  314,  PROCEDURE  X. 

PER    MIL-STD-BIOC;  METHOD    516,  PROCEDURE   V. 

BULT   IN  ON    ALL  5 V.  MODELS    SET®  6.ZV.-±.   4V. 

OTHER     MODELS     USE     OPTIONAL     OVERVOLTAGE 

PROTECTION. 

50  **,   SECONDS    FOR  A   50%   LOAD    CHANGE 

STABILITY  ±.3%  FOR    24H0URS     AFTER     WARM    UP 

COOLING  CONVECTION     COOLING    IS  ADEQUATE    WHERE 

HON     RESTRICTED     AIR   FLOW    IS    AVAILABLE.  WHEN 
OPERATING     IN   A    CONFINED     AREA.  MOVING     AIR    OR 
CONDUCTION    COOLING    IS    RECOMMENDED. 
*NEG.   OUTPUT     USABLE    AT-5VAT.4A    BY   JUMPERING 
EI-E2   AND  RESETTING    RIB. 
SPECIFICATIONS    SUBJECT  TO  CHANGE   WITHOUT   NOTICE. 


TEMP    COEFFICIENT 
EFFICIENCY 


TRANSIENT     RESPONSE 


AMPS 

STEADY  |  »URW 


WARRANTY 

POWER— ONE  WARRANTS   EACH   POWER 
SUPPLY    OF  ITS    MANUFACTURE     THAT  DOES 
NOT    PERFORM   TO  PUBLISHED 
SPECIFICATIONS,  AS  A  RESULT   OF 
DEFECTIVE    MATERIALS    OR   WORKMANSHIP, 
FOR  A   PERIOD    OF    TWO  (2)  FULL     YEARS 
FROM     THE    DATE    OF   ORIGINAL    DELIVERY. 
RETURNS    MUST    BE   FREIGHT     PREPAIO. 

POWER-ONE  ASSUMES  NO  LIABILITIES 
FOR     CONSEQUENTIAL    DAMAGES     OF  ANY 
KIND    THROUGH    THE     USE  OR   MISUSE    OF 
ITS     PRODUCTS     BY    THE     PURCHASER    OR 
OTHERS.  NO   OTHER     OBLIGATIONS   OR 
LIABILITIES     ARE    EXPRESSED    OR     IMPLIED. 
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ABSTRACT 

The  development  of  the  SYM-1  based  data  logger  resulted  from 
two  OSDA  Solar  Demonstration  Projects.  These  projects  required 
instrumenting  nine  solar  collectors  on  confinement  swine  build- 
ings and  ten  solar  collectors  on  grain  drying  installations  to 
determine  energy  use.  In  evaluating  the  available  funds  for 
instrumentation  the  conclusion  was  made  that  commercial  data 
loggers  were  too  expensive  to  allow  instrumenting  each  solar  col- 
lector. The  alternative  to  commercial  data  loggers  was  to  build 
a  data  logger  using  a  microcomputer. 

The  SYM-1  was  selected  as  the  microcomputer  to  use  in 
instrumenting  the  solar  collectors.  At  first  an  8-bit  analog  to 
digital  converter  was  used  which  required  the  input  signal  range 
to  be  as  close  to  full  scale  as  possible.  Later  a  12-bit  analog 
to  digital  converter  and  programmable  gain  amplifier  with  gains 
from  1  to  1024  was  used  to  obtain  12-bits  of  resolution  for 
inputs  ranging  from  5  millivolts  to  5  volts.  A  CMOS  real-time 
clock  was  used  to  provide  the  correct  time  for  the  data  logging. 
A  battery  was  provided  to  provide  power  to  the  clock  chip  during 
power  outages. 

In  response  to  problems  where  power  fluctuations  would  stop 
the  processor,  a  watch-dog  timer  was  developed  for  the  data 
logger.  The  watch-dog  timer  is  an  astable  timer  with  its  output 
connected  to  the  computer  reset.  Under  normal  operation  the 
SYM-1  produces  a  signal  that  retriggers  the  timer  every  second, 


preventing  a  reset.  In  the  event  the  processor  stops  because  of 
a  power  glitch,  the  timer  will  not  be  retriggered  and  generate  a 
reset  signal  for  the  computer. 

Data  is  recorded  onto  an  audio  cassette  tape  which  is  then 
read  by  another  SYM-1  and  sent  to  a  minicomputer  for  analysis 
thru  the  RS232  serial  interface.  To  deal  with  possible  tape 
errors,  each  data  observation  is  recorded  on  the  tape  two  to  four 
times  depending  on  the  configuration  of  the  data  logger.  The 
SYM-1  reader  removes  this  redundant  data  and  marks  the  data  in 
the  event  of  a  checksum  error. 

The  data  loggers  collected  data  for  two  heating  seasons  for 
the  Solar  Livestock  Demonstration  and  one  drying  season  for  the 
Solar  Grain  Drying  Demonstration.  After  a  few  initial  electronic 
problems  the  data  loggers  functioned  as  designed. 

The  SYM-1  data  logger  was  used  on  to  instrument  two  projects 
other  than  solar  collectors  demonstrating  the  versatility  of  the 
data  logger.  An  ice  freezing  project  was  conducted  where  the 
SYM-1  data  controlled  the  air  flow  and  water  additions  as  well  as 
collecting  data.  Engine  preformance  data  was  also  collected  with 
this  data  logger.  This  required  fast  sampling  rates  for  short 
periods  of  time  with  no  data  logging  during  during  engine  stabil- 
ization. In  both  of  these  cases  the  SYM-1  data  logger  preformed 
with  no  modifications  to  the  data  logging  code,  although  a  con- 
trol program  was  added  for  the  ice  freezing  project. 


